CP-6 
INTERNALS (COO LEVEL) 
SEMINAR 


AUGUST 12-235, 1985 


Description: CP-6 INTERNALS COURSE (C00 LEVEL) 
Date: AUGUST 12-23, 1985 


This course details the features of the DPS-8 and Datanet—8 hardware 


architectures and describes how the CP-6 Host Operating System and 
the LCP-6 FEP Operating system makes use of these features. The 
course covers basic system architecture as well as descriptions of 
major functional areas of the operating systems, including file 
management, comgroups, connection of terminals, and monitor 
services. The process of booting, system recovery, and dump analysis 
will also be covered. 

Lab work will include writing a command processor, shared library, 
and some comgroup related programs, as well as some work with 
system administration utilities. 


Requirements: 


Experienced PL-6/Monitor services programmers, familiarity with system 
administration utilities, such as, SUPER, ANLZ, and PIG. This course 


CLASS SCHEDULE 


MORNING 

MON Administrative Info, Overview, 
DPS-8 Hardware Arch ; 

TUE Cont. CP-6 use of Hard. Mem. Arch. 

WED CP-6 User Modes, Intro to CP-6 OS 

THUR Booting the System, Recovery 

FRI Comgroup Architecture 

MON MM, FM, RES & Prog Man Functions 

TUE Walking Tours of CP-6 Functions 

WED FEP Arch & LCP-6 Architecture 

THUR FEP Users and System Components 


FRI 


AFTERNOON 


CP-6 Use of Hard. Mem. Arch. 


Anatomy of a User 

LAB 1 (SUPER) & LAB 2 (Shared Lib) 
LAB 3 Use of ANLZ, STATS, CONTROL 
LAB 4 Using COMGROUPS 

LAB 5 Command Processor 

LAB 5 cont 

LAB 6 FPRG programs 

LAB 7 ANLZ (FEP) 


OPEN 


CP-6 IS A SYSTEM 


e COLLECTION OF SOFTWARE INTEGRATED 
AROUND HARDWARE 


e PRIMARY CHARACTERISTICS OF THE HARDWARE 
ARCHITECTURE THAT INFLUENCES THE SOFTWARE 
ARCHITECTURE IS THE MEMORY ADDRESSING 
SYSTEM 


e DPS-8 MEMORY SYSTEM IS CALLED VM&S OR NSA 


1-1 INT 8/85 


NSA EXTENDS LEVEL 66 BASIC 
ADDRESSING 


e L66 — PROCESS COULD ADDRESS UP TO 256K 
WORDS OF ADDRESS SPACE. THIS SPACE MUST BE 
CONTIGUOUS IN REAL MEMORY. 


1-24 INT 8/85 


NSA EXTENDS LEVEL 66 BASIC 
ADDRESSING (CONT) 


e NSA — TWO MAJOR EXTENSIONS 


e MULTIPLE 256K ADDRESS SPACES AVAILABLE 
TO PROCESS 


¢ SEPARATION OF "VIRTUAL" ADDRESS CONTINUITY 
FOR REAL ADDRESS VIA PAGE TABLES 


(ALSO MAJOR SECURITY FEATURES BUT NOT DETAILED HERE) 


1-2B INT 8/85 


NSA ADDED HARDWARE REGISTERS: 
SSR - SAFE STORE REGISTER 
LSR - LINKAGE SEGMENT REGISTER 


ASR/PSR — ARG SEGMENT REGISTER/ PARAMETER 
SEGMENT 


ISR — INSTRUCTION SEGMENT REGISTER 


DRO-7 PAIRED W/ARO-7 —- DESCRIPTOR 
REGISTERS/ADDRESS REGISTERS 


1-3A INT 8/85 


NSA ADDED HARDWARE REGISTERS: 
(CONT) 


e PTDBR — PAGE TABLE DIRECTORY BASE REGISTER 
¢ WSRO-7 - WORKING SPACE REGISTERS 


1-3B INT 8/85 


NSA USES NEW ENTITIES 
SSS - SAFE STORE STACK (FRAMED BY SSR) 
LS - LINKAGE SEGMENT (FRAMED BY LSR) 


AS/PS — ARGUMENT/PARAMETER SEGMENTS 
(FRAMED BY ASR/PSR) 


IS — INSTRUCTION SEGMENT (FRAMED BY ISR) 


SEGMENTS — ADDRESS SPACE (FRAMED BY SOME 
DESCRIPTOR) 


1-4A 


NSA USES NEW ENTITIES (CONT.) 


DESCRIPTORS/VECTORS/POINTERS 
VECTORS/POINTERS REFERENCE DESCRIPTORS) 
DESCRIPTORS FRAME SEGMENTS) 


WS ~ WORKING SPACE (PAGE TABLE, POINTED 
TO BY WSPTD) 


WSPTD — WORKING SPACE PAGE TABLE DIRECTORY 
(POINTED TO BY PTDBR) 


PAGE - 1024 WORDS OF CONTIGUOUS MEMORY 
1-4B INT 8/85 


FIRST STEP TO UNDERSTANDING NSA ADDRESSING 
INVOLVES THE CONCEPTS OF SEGMENTATION AND 
WORK SPACES 


1-5 INT 8/85 


WHAT IS A SEGMENT? 


e CHUNK OF PROGRAM ADDRESS SPACE FROM ONE 
BYTE TO 256K WORDS 


* DEFINED BY A 72 BIT DESCRIPTION WHICH SPECIFIES 
© BOUND (SIZE IN BYTES -1) 
* ACCESS CONTROLS 
* TYPE OF SEGMENT (DATA, DESCRIPTOR, SPECIAL) 


1-6A INT 8/85 


WHAT IS A SEGMENT? 
(CONT) 


¢ WHAT WS SEGMENT IS IN 


e BASE (BYTE OFFSET INTO WS THAT IS VIRT 0 
FOR THIS SEGMENT) 


1-6B INT 8/85 


WHAT IS A WORKING SPACE? 


e CHUNK OF VIRTUAL ADDRESS SPACE 1->N PAGES 
e DEFINED BY A PAGE TABLE (ONE WORD/PAGE) 
EACH PAGE TABLE ENTRY GIVES ADDRESS OF 
PAGE IN REAL MEMORY 
e SPECIFIES ACCESS CONTROL 


e PAGE TABLE FOUND BY AN ENTRY IN WSPTD 
(INDEXED BY WS¢#) 


1-7A INT 8/85 


WHAT IS A WORKING SPACE 
(CONT) 


¢ SPECIFIES ADDRESS OF PAGE TABLE AND SIZE 
OF PAGE TABLE 


¢ WSPTD IS POINTED TO BY HARDWARE REGISTER 
PTDBR 


1-7B INT 8/85 


THE DOMAIN CONCEPT 


¢ DOMAIN IS THE ALLOWABLE/ADDRESSABLE 
WORLD OF SEGMENTS AND WORKING SPACES AS 
"SEEN" BY AN EXECUTING PROCESS 


e THE SET OF HARDWARE ADDRESSING REGISTERS 
IN CONCEPT WITH THE DESCRIPTOR SEGMENTS AND 
PAGE TABLES SET UP BY A CONTROLLING 
(PRIVILEGED) PROCESS CONSTRAIN THE CURRENTLY 
EXECUTING PROCESS TO ITS DOMAIN 


1-8A INT 8/85 


THE DOMAIN CONCEPT (CONT) 


e CLIMB INSTRUCTION ALLOWS SWITCHING FROM 
ONE DOMAIN TO ANOTHER, PUSHING/PULLING UP 
TO 64 WORDS OF CONTEXT ON SSS 


1-8B INT 8/85 


WS CONTROL 


PAGE TABLE 


1 WORD/PAGE 
1-9 INT 8/85 


511 


nO oO fh O ND ~~ O 


SEGMENT CONTROL (PARTIAL) 


DESCRIPTOR BASE a 
BOUND 
(20 BITS) ace] ws TYPE 
BASE (26 BITS) 


BOUND 


LS 
DESCRIPTOR 
LSO 


1-10 INT 8/85 


A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT 


BOUND IN | ACCESS PS CWSQ(Q) eye 
BYTES (20) | CONTROL | MISCELLANEOUS (4) 
FLAGS FLAGS (6) 

BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 


@ BOUND SPECIFIES SIZE OF SEGMENT (1 BYTE UP 
TO 256K WORDS) 


@ BASE LOCATES SEGMENT WITHIN SOME WORKING 
SPACE 


@ WSQ/WSR SPECIFIES WORKING SPACE NUMBER 


1-11A INT 8/85 


A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT (cont.) 


BounNDIN | ACCESS |___ss—sWSQ(Q) | eype 
BYTES (20) | CONTROL | MISCELLANEOUS (4) 
FLAGS FLAGS ( 


BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 


@ TYPE SPECIFIES: 
@® WHETHER SEGMENT CONTAINS DATA OR 
DESCRIPTORS 


@ WHETHER WS SPECIFIED DIRECTLY (WSQ) OR 
INDIRECTLY (WSR) 

@INDICATES IF THIS IS NOT NORMAL 
DESCRIPTOR (IF NOT NORMAL THE REST ALL 
LOOKS DIFFERENT) 

1-11B INT 8/85 


A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT (cont.) 
BOUNDIN | Access {___—WSQ(o)_ 
BYTES (20) | CONTROL | MISCELLANEOUS 
FLAGS FLAGS (0) 
BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 
- ENTRY DESCRIPTOR 
- SUPER DESCRIPTOR 
@ ARE CONTAINED IN DESCRIPTOR SEGMENTS 
(FRAMED BY A DESCRIPTOR TYPE DESCRIPTOR) 


1-11C INT 8/85 


A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 
DESCRIPTOR 


ACCESS CONTROL | CONTROL 
Series FLAGS (9) INFO 
DESCRIPTOR # 


@ VECTOR IS COMBINED WITH SPECIFIED 
DESCRIPTOR FOR FORMING NEW DESCRIPTOR TO 
BE LOADED INTO DR (LDD INSTR) OR PUSHED ON 
PS VIA CLIMB 


@ VECTOR BASE & BOUND CAN SPECIFY SUBSET 
ALL OF THE SEGMENT 


Vda 


1-12A INT 8/85 


A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 
DESCRIPTOR (cont.) 


ACCESS CONTROL | CONTROL 
Peer FLAGS (9) INFO 


ooroe DD a ear 


@ ACCESS FLAGS LOGICALLY ANDED WITH 
DESCRIPTOR FLAGS THEREFORE CAN SUBSET 
PRIVILEGES, BUT NOT ADD ANY 


@ S SPECIFIES LS,'S, PS AS DESCRIPTOR SOURCE 


@ DESCRIPTOR # SPECIFIES WHICH DESCRIPTOR 
IN LS/AS/PS 


1-12B INT 8/85 


A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 


DESCRIPTOR (cont.) 
ACCESS CONTROL | CONTROL 


BASE (20) \\ FE DESCRIPTOR # 


@ SPECIAL VALUES OF S, D RESERVED TO SPECIFY 
CERTAIN HARDWARE REGISTERS (DRn, ISR, LSR, 
SSR, PSR, ETC.) 


1-12C INT 8/85 


_A POINTER REFERENCES A SEGMENT 


VIA SOME DESCRIPTOR AND CAN SPECIFY AN 
OFFSET INTO THE SEGMENT TO THE BIT LEVEL 


WORD | syTeE|BIT DESCRIPTOR # 
OFror | (2) | t4) (10) 


@ S, D FIELDS (SEGID) REFERENCE A DESCRIPTOR 
(SAME AS VECTOR) 


@ WHEN LOAD POINTER INSTRUCTION EXECUTED 


@WORD, BYTE, BIT OFFSETS LOADED INTO AR 
© S, D LOADED INTO SEGID REGISTER (INFO ONLY) 
@ SPECIFIED DESCRIPTOR LOADED INTO DR 


@ OFFSET VALUES DO NOT PROSCRIBE ACCESS 
BELOW SPECIFIED ADDRESS 1-13 INT 8/85 


SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED 


LSR - CONTAINS DESCRIPTOR WHICH FRAMES 
CURRENT LS 


- LOADED ONLY AS A RESULT OF CLIMB 
INSTRUCTION 


1-14A INT 8/85 


SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED (CONT) 


ISR - 


SSR - 


CONTAINS DESCRIPTOR WHICH FRAMES 
CURRENT INSTRUCTION SEGMENT 


IC IS OFFSET INTO CURRENT IS 


LOADED VIA CLIMB OR TSX INSTRUCTION 


CONTAINS DESCRIPTOR WHICH FRAMES CURRENT 
SAFE STORE STACK 


1-14B INT 8/85 


SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED (CONT) 


-SS IS STACK FOR CONTEXTS PUSHED/PULLED 
-VIA CLIMB INSTRUCTION 


ASR/PSR-CONTAIN DESCRIPTORS WHICH FRAME 
— CURRENT ARGUMENT/PARAMETER SEGMENTS 


-AS/PS IS STACK USED TO PASS DESCRIPTORS 
-FROM ONE DOMAIN TO ANOTHER VIA CLIMB 
— INSTRUCTION 


1-14C 8-85 


SEGMENT SPECIFICATION IN 
INSTRUCTIONS 


INS1 


ARn DRn 


3 15 


ona 
ws2[a] 4 [eoa]o]t] tac 


ares Bae 


DESCRIPTOR 

erry | 7 = a 

reece | a oe 
-6001=“LS1”"’ 


1-15 INT 8/85 


CONCEPT OF AN EXECUTING PROCESS 


¢ CURRENT PROCESS CONTAINED BY DOMAIN 
AS ESTABLISHED 


e MACHINE HAS SLAVE MODE/PRIVILEGED MODE 
¢ ONLY PRIVILEGED MODE CAN "SET UP” DOMAINS 


1-16A INT 8/85 


CONCEPT OF AN EXECUTING PROCESS 
(CONT) 


e SLAVE MODE SWITCHED TO PRIVILEGED AS 
RESULT OF 


¢ TRAPS (INCLUDING PMME) 
© INTERRUPTS (TIMERS, 1/0) 


e HARDWARE TOGETHER WITH "CORRECT" PRIVILEGED 


PROCESS AND "CORRECT" SYSTEM ARCHITECTURE ARE 
WHAT PROVIDES SYSTEM SECURITY 


1-16B INT 8/85 


THE USE OF DPS-8 
MEMORY ARCHITECTURE (NSA) 
BY CP-6 


2-1 INT 8/85 


CP-6 WORKING SPACE USAGE 


WS#0 ADDRESSES REAL MEMORY 
WS#1 MONITOR PROCEDURE AND DATA 
WS#2 SCRATCH USE BY XDELTA 

WS#3 USED BY DELTA/ANLZ 


WS#4 COMMAND PROCESSORS PROCEDURE 
(IBEX AND OTHERS) 


2-2A INT 8/85 


WS#5 
WS#6 


WS#7 
WS#8 


CP—6 WORKING SPACE USAGE 
(CONT) 


DEBUGGERS PROCEDURE (DELTA AND OTHER) 


ALTERNATE SHARED LIBRARIES PROCEDURE 
(I-D-S/Il AND OTHERS) 


SCRATCH USE BY 1/0 END ACTION 
CURRENT USERS WORKING SPACE 


2-28 INT 8/85 


CP-6 WORKING SPACE USAGE 
(CONT) 


# 
WS#10 CURRENT USERS VIRTUAL SEGMENTS 
WS#11 


WS>11 USED BY FEP I/0 AND COMGROUPS 


2-2C INT 8/85 


USER VIRTUAL SPACE 


¢ "THE USER" FROM STANDPOINT OF MONITOR 
CONTROL 


¢ CONTAINS ALL "GLUE" HOLDING IT TOGETHER 
e PAGE TABLE 
¢ LINKAGE SEGMENTS 


2-3A INT 8/85 


USER VIRTUAL SPACE (CONT) 
* SAFE STORE STACK 
* ARGUMENT/PARAMETER SEGMENTS 


¢ COLLECTS ALL PHYSICAL MEMORY ALLOCATED 
TO THIS USER 


2-38 INT 8/85 


USER VIRTUAL SPACE (CONT) 


¢ LOCATES BUT DOES NOT CONTAIN SHARED 
PROCEDURE 


e SHARED PROCESSOR 
e RUN-TIME LIBRARY 


2-3C INT 8/85 


SIMPLIFIED VIEW OF USER’S WS (1 MW) 


PAGE TABLE OF WS 
HJIT - 4LS’s SSS, AS/PS 


JIT AND MONITOR TSTACK 


INSTRUCTION SEGMENT 
CP’S DYNAMIC SEGMENTS 

DB’S 8 DYNAMIC SEGMENTS 

ASL’S 8 DYNAMIC SEGMENTS 


2-4 INT 8/85 


1 MW USER VIRTUAL LAYOUT 


oO AGE TABLE 
CAGE IA MONITOR 
1 10-PAGE GAP CORRESPONDING TO MON <r 
10 (.12) CGQ MAP PAGE 5 
USER RD 11 (.13) JIT& TSTACK 
MONITOR W 
12 (.14) RESERVED PAGE 
cee rus { 
44 C18) MONITOR 
ieeas 2 RESERVED PAGES 
eee FPOOLS -31 PAGES 
4s (58) MONITOR 
USER RD : J : 
60 (.74) ROSEG -14 PAGES MONITOR W 
61 (.75) a 
3 RESERVED PAGES 
corn |_______@RESERVEDPAGES 
USER R,W,e _&4 (.100) 
319 (.477) 
320 (.500) | SBUF2 step SPECIAL BUFFERS - 2 PAGES 
321 (.501) | SBUF1 MONITOR 
322 (.502) oe 
E PA 
aorreey 6 RESERVED PAGES 
Pra a DB DATA SEGMENTS 
-UP TO 64 PAGES- DELTA 
391 (.607) 
392 (.610) 
ASL DATA SEGMENTS ASL 
-UP TO 128 PAGES- — 
519 (.1007) 
520 (.1010) 
CP DATA SEGMENTS ee 
-UP TO 32 PAGES- = 
551 (.1047) 
552 (.1050) 
USER R,w USER DATA SEGMENTS 
-UP TO 384 PAGES- 
935 (.1647) 
936 (.1650) 
88 RESERVED PAGES 
1023 (.1777) 


HEAVILY ACCESSED PAGES 


NAME V.P.8 AMROWS 
. JIT 13 13 

HJIT 15 15 

ROSEG(1)} 57 AT 

ISR(1) -100 ° 

U. DATA SEG. (1) .1050 10 

STEP BUFFER 81 .501 01 


2-5 INT 8/85 


1MW MONITOR VIRTUAL LAYOUT 


PAGE TABLE FOR 1ST MW 


10 PAGES RESERVED FOR CGQ PAGE TABLE 


JIT & TSTACK & TCB 
-2 PAGES- 


te] 
1 


10 (.12) 
11 (.13) 


12 (.14) 


13 (.15) 


15 (.17) 
Aenea 32 RESERVED PAGES 
ate i LOW REAL MEMORY - PHYSICAL PAGES 0-3 
51 (.63)| MONITOR WINDOW AREA - USED FOR MISCELLANEOUS 
60 (.74) MAPPING WITHIN ISOLATED ROUTINES 
61 (.75) 
pea a 3 RESERVED PAGES 
64 (.100) INSTRUCTION SEGMENT 

319 (.477) 

320 (.500) 8 RESERVED PAGES 

327 (.507) 


MM__PPUT - PHYSICAL PAGE USAGE TABLE 1 6K, MAXIMUM 


USER STATE TABLES FOR PERFORMANCE MONITOR 
-8 PAGES- 


‘ MOUSE DATA -8 PAGES- 


PAGE TABLES & HJITS FOR ALL CPUs-8 PAGES- 


COMMUNICATIONS WSQ PAGE TABLES -8 PAGES- 


16 RESERVED PAGES 


TIGR BUILT TABLES -128 PAGES- 


MPC FIRMWARE -32 PAGES- 


DS1-CFUs 50 PAGES 


DS2 - AUTOSAVE TABLES 20 PAGES 


DS3 - ENQ/DEQ TABLES 24 PAGES 


DS4 - UNASSIGNED 60 PAGES 


DS5 - UNASSIGNED 60 PAGES 


DS6 - UNASSIGNED 60 PAGES 


DS7 - UNASSIGNED 62 PAGES 


DS8& - LDCTs & COMGROUP CONTEXT 48 PAGES 


88 RESERVED PAGES 


2-6 INT 8/85 


HOW HARDWARE DEFINES (CONTAINS) 


USERS DOMAIN 
(USER PROGRAM CURRENTLY IN CONTROL) 


USER WS 
PTDBR WSPTD(WS#8) 
PAGE TABLE 
USERLS 


USER LS 

IS DESCRIPTOR 
RWE 
JIT DESCRIPTOR R 
DS1 DESCRIPTOR RW 
DS2 DESCRIPTOR RW 


DESCRIPTOR REGISTERS 0-7 


L 


a“ 
INSTRUCTION SEGMENT | ~ 


a 


INSTRUCTION 
SEGMENT 


DATA SEGMENT #1 


PROCEDURE 


DATA SEGMENT #2 BE LOADED 
/ VIA LSR 
7 (ASR/PSR 
EMPTY) 
SHARED LIBRARY / 


2-7 INT 8/85 


MORE ABOUT THE INSTRUCTION SEGMENT 


FRAMED BY ISR DESCRIPTOR ° 
(LS#0) 


DESCRIPTOR ALWAYS SAYS 
SIZE IS 256K 


DESCRIPTOR ALLOWS R, W, E 
ACCESS 

WRITEABILITY CONTROLLED 
BY PAGE TABLE 


SHARED LIBRARY & 
PROCEDURE & PROGRAM NOT 
WRITEABLE 


DATA 


PROCEDURE 


een 
een PAGES ~ 


UNALLOCATED PAGES w\\ 

ee LIBRARY 
MARKED NOT PRESENT ee : 
CONTAINS POINTERS TO 255 


GET TO OTHER SEGMENTS 
2-8 INT 8/85 


THE MONITOR DOMAIN 


USES 1MW WORKING SPACE 

HAS ONLY ONE LINKAGE SECTION 

MANY OF THE DESCRIPTORS IN THE LS REFER 
TO USER WS THESE DESCRIPTORS HAVE READ 
AND WRITE ACCESS 

e JIT 


e FILE BUFFERS 
2-9A INT 8/85 


THE MONITOR DOMAIN (CONT) 
* RO SEGMENT (TCB, ECB, DCBs) 
© HIT 
* USERS MAP 
* THERE ARE MANY SPECIAL PURPOSE DESCRIPTORS 


2-9B INT 8/85 


THE MONITOR DOMAIN (CONT) 


¢ THE PSR FRAMES THE PS OF DESCRIPTORS 
PASSED TO THE MONITOR BY THE USER VIA 
THE PMME INSTRUCTION. THESE DESCRIPTORS 
FRAME THE PARAMETERS/BUFFERS OF THE 
SERVICE REQUEST 


2-9C INT 8/85 


USERLS 
NULL 


NULL 


1S:R/W/E 
R/W 
R/W 
NULL 


USER VIRTUAL ADDRESS SPACE 
AS SEEN BY USER LS, MONITOR LS 


PAGE TABLE 
ieee Ue ele 
DEBUGGER DATA MONITOR LS 


ALTLIB DATA R/W 
R/W 
LIBRARY DATA 128 | Rw 
R/W 
To 
IS: R/W/E 
MON 


R/W 
ie ere 
384 
DYNAMIC 
SEGMENTS 
1023 


2-10 INT 8/85 


"USER" HAS FOUR LINKAGE SEGMENTS 
* ONE FOR EACH SLAVE DOMAIN WITH ITS CONTEXT 


e USER LS— DEFINES WS AS SEEN BY USER 
¢ CP LS — DEFINES WS AS SEEN BY CP 


¢ DB LS — DEFINES WS AS SEEN BY DB 
¢ ASL LS — DEFINES WS AS SEEN BY ASL 


¢ EACH DOMAIN'S IS DESCRIPTOR (LS#0) REFERENCES 
PROCEDURE IN OWN WS 


2-11A INT 8/85 


"USER" HAS FOUR LINKAGE SEGMENTS 
(CONT) 


¢ EACH DOMAIN'S DYNAMIC DATA SEGMENT DESCRIPTOR 
REFERENCES APPROPRIATE PAGES IN USERS WS 


¢ OTHER DESCRIPTORS SAME FOR ALL FOUR DOMAINS 


2-11B INT 8/85 


THE CP, DB, ASL DOMAINS 
¢ EACH IS SIMILAR 
* PROCEDURE IN SEPARATE WS 
* 8 DATA SEGMENTS IN USER WS (PRIVATE) 


¢ SHARES JIT, DCBs WITH USER PROGRAM, 
EACH OTHER 


¢ EACH IS UNIQUE TO SATISFY DIFFERENT 
REQUIREMENTS 


2-12A INT 8/85 


THE CP, DB, ASL DOMAINS 
(CONT) 


¢ CP, DB HAVE RESERVED DCB SLOTS 


¢ ENTRY, EXIT DIFFERENT FOR EACH, 
PARTLY BY NEED, PARTLY FOR BEST 
PERFORMANCE (ASL) 


¢ SEPARATE DOMAINS MINIMIZE OVERHEAD, 


ALLOW FOR TRULY EXTERNAL DEBUGGER 
AND COMMON PROCESSOR 


2-12B INT 8/85 


THE COMMAND PROCESSOR DOMAIN 
JIT DESCRIPTOR HAS READ, WRITE ACCESS 
CANNOT SEE USER IS OR DATA SEGMENTS 

CAN SEE DCBs ROSEG 


GETS CONTROL VIA MONITOR INTERVENTION AT 
PROGRAM ABORT, EXIT, OR ATTENTION REQUEST 


GIVES CONTROL BACK VIA SPECIAL MONITOR 
SERVICE 


2-13 INT 8/85 


THE DEBUGGER DOMAIN 


¢ LS CONTAINS DESCRIPTOR GIVING IT ACCESS 
TO THE USERS LS AND HENCE ALL THAT USER 
PROGRAM CAN SEE WITH SAME ACCESS (R, W) 


¢ USERS PROGRAM PAGES ARE MARKED WRITEABLE 
BY THE MONITOR PROVIDING THE PROCEDURE |S 
NOT SHARED (SHARED PROCEDURE AND LIBRARY 
MAY BE UNSHARED BY REQUEST) 


¢ GETS CONTROL OF ALL SPECIAL EVENTS, TRAPS, 
ETC. VIA MONITOR INTERVENTION 


2-14A INT 8/85 


THE DEBUGGER DOMAIN 
(CONT) 


¢ GIVES CONTROL BACK VIA SPECIAL MONITOR 
SERVICE 


2-148 INT 8/85 


THE ASL DOMAIN 


¢ LS HAS NO SPECIAL DESCRIPTORS, NO SPECIAL 
ACCESS 


¢ PS CONTAINS DESCRIPTORS PASSED BY USER 
PROGRAM WHICH FRAME THOSE PORTIONS OF 
USERS IS AND DATA SEGMENTS TO WHICH 
ASL IS TO HAVE ACCESS 


¢ GETS CONTROL DIRECTLY FROM USER VIA 
CLIMB INSTRUCTION (USER LS HAS ENTRY 
DESCRIPTOR LOCATING ASL LS) 


2-15A INT 8/85 


THE ASL DOMAIN (CONT) 


¢ GIVES CONTROL DIRECTLY BACK TO USER 
VIA CLIMB (OUTWARD) INSTRUCTION 


2-15B INT 8/85 


GENERAL INFORMATION 


¢ THE MONITOR IS THE ONLY PROCESS WHICH EXECUTES 
IN PRIVILEGED MODE (PLUS XDELTA) 


¢ THE USER PROCESS RUNS IN SLAVE MODE NO MATTER 
WHICH OF FOUR DOMAINS (USER, CP, DB, ASL) IS 
IN CONTROL 


e ALL USER DOMAINS USE THE PMME CLIMB 


INSTRUCTION TO MAKE SERVICE REQUESTS 
ON THE MONITOR 


2-16A INT 8/85 


GENERAL INFORMATION (CONT) 
¢ THE PMME CLIMB INSTRUCTION: 
¢ ENTERS PRIVILEGED MODE 
* SWITCHES DOMAINS TO THE MONITOR 
VIA ENTRY DESCRIPTOR IN LOW REAL 
MEMORY (RESERVED LOCATION) 


¢ CAN PASS DESCRIPTORS FROM THE USER 
DOMAIN TO THE MONITOR 


2-16B INT 8/85 


GENERAL INFORMATION (CONT) 


¢ TRAPS AND INTERRUPTS CAUSE SIMILAR 
ENTRY TO THE MONITOR BUT PASS NO 
USER DESCRIPTORS 


2-16C INT 8/85 


SUMMARY 
MONITOR HAS 1MW VIRTUAL WS CONTROLLED BY PAGE 
TABLE 
EACH USER HAS 1MW VIRTUAL WS CONTROLLED BY 
PAGE TABLE 


EACH USER HAS FOUR LINKAGE SEGMENTS - USER, 
CP, DB, ASL 


MONITOR HAS ONE LINKAGE SEGMENT 


2-17A INT 8/85 


SUMMARY (CONT) 


e MONITOR, CP, DB, AND ASL LS REFER TO USER 
WS FOR CONTEXT SPECIFIC TO THAT USER 


e MONITOR SETS UP PAGE TABLE, LINKAGE SECTIONS, 


HARDWARE TAKES CARE OF ALL ADDRESSING ACCESS 
AND CONTROL 


2-178 INT 8/85 


SUMMARY 


¢ INTERACTIONS BETWEEN DOMAINS ALL HANDLED BY 
CLIMB INSTRUCTION 


¢ SIMPLE CLIMB FOR USER=ASL 
¢ PMME CLIMB FOR ALL OTHERS 
— STRAIGHTFORWARD FOR USER-MONITOR 


— VIA SPECIAL MONITOR MANIPULATION 
FOR USER/CP/DB 


2-17C INT 8/85 


ANATOMY OF A USER 


3-1 INT 8/85 


SYSTEM SERVICE INTERFACE 
UNIFORM ABSTRACT INTERFACE 


ISOLATES USER PROGRAMS FROM 
HARDWARE/SYSTEM SOFTWARE 


ENABLES COMPLETE DEVICE 
INDEPENDENCE 


MAKES FILES INTERCHANGEABLE AMONG 
LANGUAGES 


CLIMB IS EXCELLENT VEHICLE 
3-2 INT 8/85 


CP-6 USER ENVIRONMENT 


L66B SLAVE INSTRUCTION SET 


MONITOR SERVICES AS EXTENSION OF 


INSTRUCTION SET 


MEMORY AS DEFINED BY USER DOMAIN 


JIT, TCB, DCBs 


3-3A INT 8/85 


CP-6 USER ENVIRONMENT (CONT) 
PLUS OPTIONALLY: | 
* SHARED RUN-TIME LIBRARY 
¢ ALTERNATE SHARED LIBRARY 


3-3B INT 8/85 


MONITOR CALL FORMAT: 


EPPRO a FRAMES VALUE 
: PMME CODE, n PARAM BLOCK 
| [TRA 8] FRAMES n VECTORS, 
MEM PAR 1 1FOR VALUE 
| PARAM 
| BLOCK PLUS 
1 FOR EACH 
B EXCEPTION ‘MEMORY 
TYPE’ 


PROCESSING 


3-4 INT 8/85 


PROGRAM BINDING INTERFACE 


OBJECT LANGUAGE COMMON FOR ALL 
LANGUAGES 


DEBUG SCHEMA INCLUDED PERMITTING 
COMMON DEBUGGER 


ORIENTED TO SHARED PROCEDURE 
ENVIRONMENT 


PERMITS GENERAL LINK TIME BINDING 


3-5 INT 8/85 


FEATURES OF OBJECT LANGUAGE/ 
LINKER 


GENERAL RELOCATION OF FIELDS 


COMPLETE DESCRIPTION OF VARIABLE/ 
PROCEDURES 


DETECTION OF PROCEDURE DEFINITION/CALL 
MISMATCH 


SYSTEMIC DEFINITIONS SUPPLIED BY 
LINKER 
3-6A INT 8/85 


FEATURES OF OBJECT LANGUAGE/ 
LINKER 


PERMITS GENERAL LINK TIME BINDING 
TO PROMOTE MODULAR PROGRAMMING 


DESIGNED FOR EASE OF GENERATION 
AND SPEED OF LINKING 


LINKER PRODUCES RUN UNIT 


3-6B INT 8/85 


CP-6 OBJECT UNIT 


SECTION IS BASIC UNIT OF ALLOCATION 
(SIZE, ATTRIBUTES) 


ALL CODE AND DATA LOADED INTO SOME 
SECTION 


RELOCATION MAY BE DONE RELATIVE TO ANY 
SECTION OR EXTERNAL REFERENCE 


EXTERNAL ENTRY (ENTDEFs) AND DATA 
(SYMDEFS) ARE DECLARED RELATIVE 


TO SOME SECTION (OR CONSTANT) 3-7h INT 8/85 


CP-6 OBJECT UNIT (CONT) 


e ENTREFS, SYMREFS, AND SEGREFS ARE 
USED TO ACQUIRE THE VALUES OF ADDRESSES 
(OR CONSTANTS) DEFINED ELSEWHERE AND 
TO ACQUIRE VALUES OF SEGIDS (SUPPLIED 
BY THE LINKER) 


¢ CONTAINS INFORMATION TO ALLOW 
LINKER CONSISTENCY CHECKS 


3-7B INT 8/85 


CP-6 OBJECT UNIT (CONT) 


¢ INFORMATION ABOUT STATEMENT NUMBERS, 
STATEMENT LABELS, VARIABLE NAMES AND 
DATA TYPES IS PROVIDED VIA THE DEBUG 
TABLES 


¢ STANDARD FILE, OF COURSE 


5-7C INT 8/85 


DEBUG SCHEMA: 
STATEMENT DEFINITION 
VARIABLE. DEFINITION 
ACCOMODATES ALL LANGUAGES 
GENERAL ENOUGH TO PRODUCE LO 
DELTA MAKES IS SWING 


3-8 INT 8/85 


FEATURES OF RUN UNIT 


SAME FORMAT USED FOR ALL TYPES 
OF PROGRAMS 


EXECUTABLE FORM CONTAINING STATIC, 
PROCEDURE, DCBS AND TCBS 


IDENTIFIES REQUIRED LIBRARY AND 
ASL 


STANDARD FILE, OF COURSE 


3-9 INT 8/85 


CP-6 RUN UNIT: 


RESULT OF LINKING ONE OR MORE OBJECT 
UNITS 


ALL CROSS REFERENCES ARE SATISFIED, 
ENTDEFS AND SYMDEFS HAVE VALUES 


DEBUG INFORMATION COPIED TO RUN UNIT 
WITH ADDRESSES RESOLVED 


OVERLAY TREE STRUCTURE REFLECTS IN 
DATA AND PROCEDURE 


3-10A INT 8/85 


CP-6 RUN UNIT: (CONT) 
© COMMON BLOCKS COALESCED 
* DCBS COALESCED 


3-10B INT 8/85 


CP-6 RUN UNIT (WHEN BROUGHT IN FOR 
EXECUTION) 


DATA PROCEDURE 
ROOT ROOT 
DATA | ASSOCIATED | ppocepuRE| ASSOCIATED 


IN WITH IN WITH 
OVERLAYS OVERLAYS 


LONGEST PATH LONGEST PATH 
OF DATA OF PROCEDURE 


PAGE PAGE 
BOUNDARY BOUNDARY 


3-11 INT 8/85 


PROGRAM CALLING INTERFACE 
STANDARD SYSTEM CALLING SEQUENCE 
ACCOMODATES NEED OF ALL LANGUAGES 
FACILITATES MIXED LANGUAGE PROGRAMS 


DESIGNED FOR EFFICIENT FORMAL INTERFACE 
AMONG PROGRAMS IN A RUN UNIT 


PROMOTES COMMON LIBRARY ROUTINES 


3-12 INT 8/85 


CALLING SEQUENCE ATTRIBUTES 
DESIGNED FOR NSA ENVIRONMENT 
ORIENTED TO PURE PROCEDURE ENVIRONMENT 
CONTAINS INFORMATION USEFUL TO DEBUGGER 


INTEGRATED WITH PL/1, PL-6 STACK FRAME 
MANAGEMENT 


ENCOMPASSES LIBRARY FUNCTION CALL 
FORMAT 


3-13 INT 8/85 


PL-6 RELATIONSHIP TO SYSTEM 


e LANGUAGE BUILT TO FIT SYSTEM, NOT 
VICE VERSA 


¢ OPERATING SYSTEM IS THE RUN-TIME 
"LIBRARY" 


¢ FACILITIES INCLUDED TO FACILITATE 
¢ BUILDING THE SYSTEM 


¢ USING THE SYSTEM 
3-14A INT 8/85 


PL-6 RELATIONSHIP TO SYSTEM 
(CONT) 


¢ DOES NOT PROVIDE HIDDEN CONTROL 
MECHANISMS 


¢ SYSTEM IS NOT PREJUDICED TO ANY 
LANGUAGE 


¢ BUT PROVIDES FACILITIES NECESSARY 
TO IMPLEMENT ALL 


° DESIGNED TO MAKE DATA DEFINITIONS 
VISIBLE AND CONTROLLABLE 5-148 BT 8/85 


NOT AN APPLICATIONS LANGUAGE 
NO COMPLEX RUN-TIME. 
NO FLOAT OR DECIMAL DATA TYPES 


INTENDED FOR USE BY SKILLED 
PROGRAMMERS 


ATTEMPT TO STRIKE PROPER BALANCE AMONG 
STRUCTURE, PERFORMANCE, CHECKING, ETC. 


BUT IT IS RIGHT FOR MANY APPLICATIONS 
3-15 INT 8/85 


STRUCTURE, PERFORMANCE, PROGRAMM 
CONTROL, CHECKING 


ATTEMPT TO GIVE NO BIG "SURPRISES" 
MODULARITY ENCOURAGED, GLOBAL AND 
INTERNAL 


PARAMETER PASSING ENCOURAGED, NO 
DYNAMIC DATA TYPE CHECKING 


3-16A INT 8/85 


STRUCTURE, PERFORMANCE, PROGRAM 
CONTROL, CHECKING (CONT) 


¢ NO DATA cae COERCION, INTERNAL 
OR EXTERN 


¢ EXPLICIT DATA REDEFINITION FREELY 
ALLOWED 


3-16B INT 8/85 


IT’S A SYSTEM: 
* MONITOR ROUNDS OUT THE MACHINE 
* LANGUAGES PLAY TOGETHER 
* DEBUGGER HANDLES ALL LANGUAGE 


5-17 INT 8/85 


ONLINE/BATCH/GHOST/TP MODE 


DIFFERENT WAY TO GLUE TOGETHER SAME 
THING 


ALL USERS ARE MUCH MORE ALIKE THAN 
DIFFERENT 


MAJOR DIFFERENCES: 
e INITIATION OF USER 


¢ ACQUISITION OF RESOURCES 
4-14 INT 8/85 


ONLINE/BATCH/GHOST/TP MODE 
(CONT) 


¢ SOURCE OF COMMAND STREAM 
¢ AUTHORIZATION LIMITS 
¢ DEFAULT ASSIGNMENT OF DCBs 


4-1B INT 8/85 


USER 
PROGRAM 


A TIMESHARING USER 


COMMAND 


Gam STREAM = 
INPUT 
[Sa wen en nore ae | 


USER CONSOLE 


4-2 INT 8/85 


A BATCH USER 


USER 
PROGRAM 


COMMAND Weer ieee 
STREAM : 
—NPpUT FILE ] EDIT 
!COBOL 


4-3 INT 8/85 


A GHOST USER 


USER 
PROGRAM 


‘ petiole COMMAND 
INPUT FILE 


COMPILER 


4-4 INT 8/85 


SPECIAL SYSTEM GHOST 


USER 
PROGRAM 


4-5 INT 8/85 


TRANSACTION PROCESSING USER 


USER 
PROGRAM 


COMGROUP 


4-6 INT 8/85 


OVERALL PICTURE OF 
CP-6 OPERATING SYSTEM 


| | 
Ea 


DEBUGGERS 
(DELTA) 
SHARED 
LIBRARIES 


5-1 INT 8/85 


THE CP—6 MONITOR 


e THE MONITOR IS THE ONE PRIVILEGED 
PROCESS WHICH CONTROLS THE OPERATION 
OF THE SYSTEMS AND PROVIDES SERVICE 
FUNCTIONS TO ALL OTHER PROCESSES 


e MOST OF THE CODE WHICH COMPRISES 
THE MONITOR CAN BE EXECUTED SIMUTANEOUSLY 
BY MULTIPLE CPUs — EACH CPU HAS SOME 
SMALL AMOUNT OF PRIVATE DATA, BUT BY 
AND LARGE MOST DATA IS SHARED 


5-2A INT 8/85 


THE CP—6 MONITOR (CONT) 


* THE MONITOR RUNS IN TWO DISTINCT 
MODES 


e PERFORMING A SERVICE ON BEHALF OF 
A SPECIFIC USER (BY REQUEST) 


e PERFORMING OVERHEAD FUNCTION NOT 
ON BEHALF OF ANY SPECIFIC USER 


5-2B INT 8/85 


CP-6 SYSTEM GHOSTS 


SLUG/MBS - START-UP AND LOGON USER 
GHOST/MULTI-BATCH SCHEDULER 


KEYIN —- GHOST TO HANDLE OPERATOR 
COMMUNICATION AND LOGGING 


OUTSYM — OUTPUT SYMBIONT CONTROL 
GHOST 


PRESCAN — CHECKS BATCH JCL 


5-3A INT 8/85 


CP-6 SYSTEM GHOSTS (CONT) 
e INSYM  — INPUT SYMBIONT CONTROL GHOST 
e ELF  — ERROR LOG FILE WRITER GHOST 
© PIG — PACK INITIALIZATION GHOST 
* FROG  — FRONTEND GHOST 


5-38 INT 8/85 


CP-6 SYSTEM GHOSTS (CONT) 


DOG 
GOOSE 


MAILMAN 
JAYS 


— DISPLAY ONLINE USERS GHOST 


- GHOST TO GOOSE GHOSTS AND LAY 
- KEYINS 


— DELIVERS MAIL 
— JOURNAL ALL YOUR STUFF GHOST 


5-3C INT 8/85 


CP-6 SYSTEM GHOST (CONT) 
* SCOTTY —- PERFORMS FILE MOVES 
° TPA — TRANSACTION PROCESSING 


ADMINISTRATION GHOST (NOT REALLY 
SYSTEM GHOST) 


5-3D INT 8/85 


SPECIAL SHARED PROCESSORS 
* COMMAND PROCESSOR — IBEX, TPCP 
° DEBUGGERS - DELTA 
¢ ALTERNATE SHARED LIBRARY - I-D-S/II, ARES 


5-4 INT 8/85 


SYSTEM PROGRAMS 


¢ EXAMPLES OF OTHER PROCESSORS PROVIDED 
WITH CP-6 AS PART OF SYSTEM 


CONTROL SYSCON 
NETCON LABEL 
STATS SPIDER 
SUPER DEF 
RATES DEF 

EFT VOLINIT 
IMP PIGETTE 
ELAN REPLAY 
ANLZ TRADER 


5-5 INT 8/85 


BOOTING A SYSTEM 


Release contents on multiple tape reels 


#CP6PO01, #CP6PO2 [,#CP6P03] 
[DEF-created] 
- contain bootable information and run units 


#CP6T1, #CP6T2 [,#CP6T3] 

[EFT-created] 
- contain “tools”... electronic manuals, the 
X account, QUAC tests, :LIBRARY, DEMO, 
SUPPORT, :CONVERT, :SRB, :xxxPRC 


6-1 INT 8/85 


BOOTING A SYSTEM 


Other stuff in box: 
e Software Release Bulletin 
[installation instructions] 
e Packing slip 


Other stuff you'll need 
e Other good California stuff 
¢ Supplemental sedatives 
¢ Computer 


Advice: read open STARs against this 


release FIRST...especially sev "A"'s 6-2 INT 8/85 


PO tape, volume 1 


¢ Bootstrap 

e COYOTE 

e AARDVARK 

e FIRMWARE 

¢ SCHEMA for M:MON 

e XDELTA and XDELTALS 

¢ MONITOR (M:MON) and MONITOR HJIT 
¢ GHOST1 and GHOST1 HJIT 
e PATCHES 

e TAPE LABEL (VOL1) 

¢ $XINSTALL 


6-3 INT 8/85 


PO tape, volumes 2 and beyond 
Rest of stuff destined for life in :SYS 


° service processors 
e IBEX, DELTA, LOGON, PCL, EDIT, IMP, PLOVER, 
PARTRGE, TPA, TPCP, TRADER, LINK, LEMUR, 
FEPLINK, TEXT, PL6, CALF, ELSIE 


* system maintenance processors 
° EFT, ARCOM, CONTROL, SUPER, NETCON, PIG, 
STATS, ELAN, GOOSE, SYSCON, DEER, 
REPLAY, VOLINIT, TURTLE, SPIDER, 
PIGETTE, ANLZ, DEF, RATES, TOLTS 


6-4 INT 8/85 


PO tape, volumes 2 and beyond 
e system ghosts 
© SLUG, KEYIN, OUTSYM, INSYM, ELF, PRESCAN, 
PIG, GOOSE, DOG, [JAYS,] [MAILMAN,] FROG 


e needed libraries 
e :SHARED_SYSTEM, :SHARED__SPECIAL 


¢ host orphans 
e RCVR2, ALTKEY 


6-5 INT 8/85 


PO tape, volumes 2 and beyond 


e FEP software 
e M:FEP 


e :SHARED_LCP6_SYSTEM <sans 3270> 
e :SHARED_LCP6_RELEASE <with 3270> 


e handlers 


e NODEADMN, COUPLER, ASYNC, BISYNC, 
UNITREC, HDLCX25 


¢ FEP orphans 
e PIGLET, ANLZ_FPRG, DELTA_FPRG 


6-6 INT 8/85 


PO tape, volumes 2 and beyond 


¢ Other stuff 
e :SHARED_FPL, COMMAND_FP 
e TND_MLC16_HNDLR, MDC, MLCP 


e What? Still more? 
e HELP files 
e :2ERRMSG files 


¢ Separately priced software 
¢ COBOL * DIGS 
¢ COBOLE ¢ FORTRAN 


¢ SORT/MERGE e FPL 
6-7 INT 8/85 


PO tape, volumes 2 and beyond 


© BASIC 

© APL 

© 6EDIT 

e ARES/ARGENT/XARGENT 
¢ IDS (DBUTIL, DBACS) 

© IDP 

© RPG 

© GMAP6 

© MAIL/SEND/NODEATER 


e Each has libraries, HELP files 


6-8 INT 8/85 


BOOT SEQUENCE 


Hardware boot button starts 1 record read 
COYOTE uses primitive reads to read rest 


transfer to AARDVARK 


read firmware modules into memory 

load firmware into UR, MT, DP controllers 
rewind tape 

search for "CP—6" record 

read rest of PO (schema, M:MON, XDELTA) 
build system disk area 

patch using MINI 

exit to XDELTA for monitor patching 

XDELTA uses MINIQ (in AARDVARK) for I/O. 


BOOT SEQUENCE 


¢ climb to monitor, into TIGR 

¢ TIGR uses MINIQ to get configuration 

¢ builds tables... 

¢ before MINIQ returns EOF to TIGR read, 
RUMs, PLOVERs, and BOOTIMEs xferred to 
system area 

¢ TIGR gets EOF, kills VOLINIT and self (FRITOLAY) 

¢ calls scheduler 

¢ GHOST1, poised for execution, starts by 
building #SYS accounts & reconstructing 
then restores labelled PO files (timewarp) 


¢ convert XDELTA output to :PF?.:SYSTAC 
6-10 INT 8/85 


BOOT SEQUENCE 


convert RUMs into :RUM 

convert PLOVERs into ::PLOVER 
convert BOOTIME 

"SPIDER" in :SHARED__SPECIAL,DELTA 
sRUM exist? -—> 

e delete ::RUM, mod :RUM—>::RUM 
OUTPUT INTO :PF?.:SYSTAC 

ALIB to DELTA "READ ::RUM.:SYS" 
when rums done, reinstall DELTA & lib 
install LOGON, IBEX, :SHARED?, ASLs 
mod JIT -> LDTRC to SLUG 


SLUG starts rest of ghosts 
6-11 INT 8/85 


BOOT SEQUENCE 
¢ reconstruct JOBSTATS, sysid ranges 
¢ SLUG starts SUPER if files not there 
¢ then KEYIN, PIG, DINGO 


e when DINGO done, ELF, OUTSYM, INSYM, 
PRESCAN, FROG, CONTROL, DOG, GOOSE 


¢ SCOTTY, MAILMAN, JAYS, ELAN (TB) 


¢ boot FEPs 
6-12 INT 8/85 


RECOVERY SEQUENCE 


calls to SCREECH are individual 
monitor entry points that are defined 
by caller with flags indicating what 
to dump 

M$SCREECH PMME has default flags 
climb using ASL form using ASL slot 
in MON LS into IRM$SCREECH 

setup flags, IRM_SCODE, etc. 

check for same SUA user, etc. 
message on console if IT_XDELTA there 
goto XDELTA if there, else LTRAD to 


AARDVARK (to save "good" SSF) 
6-13 INT 8/85 


RECOVERY SEQUENCE 


¢ AARDVARK/RECOVERY takes dump based on 


flags (dump area overflow, bypass) 
into system area 


close files (SUA, SCREECH) 

RETURN to IRM$SCREECH if SUA or SNAP 

save JITs in system area, too 

reboot (fetch new M:MON, GHOST1 into memory) 
restore system tables 

call scheduler for GHOST1 restart 

do accounting from system area JITs 

restart system ghosts 

phew! 


6-14 INT 8/85 


TOOLS TAPES 


¢ SUPPORT 

¢ documentation (SRBs, manuals) 
° X 

¢ DEMO 

¢ QUAC 

¢ CONVERT 

¢ :COOPRC 

¢ :LIBRARY 


6-15 INT 8/85 


ALTERNATE SCHEMA 


Alternate schema enhances XDELTA debugging of 
DEBUGGERs, ASLs, COMMAND PROCESSORs, and 
SYSTEM GHOSTS 

Functional code groups = ++ 

AS tape = i-xx-n 

ISET M$AS FT#XX 

IDEF 

ASCHEMA ru__fid, } USER | IDB | ICP | ASL 3 

6-16 INT 8/85 


ALTERNATE SCHEMA 


XDELTA’s USE command “activates” alternate 
schema use based on domain desired and DEF'd 
onto ASCHEMA tape 


UU#.3 " would use USER domain ASCHEMA 
UU#.3,ICP  " would use CP (IBEX?) ASCHEMA 
UU#.22,ASL " would use IDS/ARES ASCHEMA 


Note: ASCHEMA is only selected by domain. 
Debugging OUTSYM with KEYIN’s ASCHEMA won't 
work, 


6-17 INT 8/85 


SYSTEM OVERHEAD FUNCTIONS 


7-1 INT 8/85 


MACHINE CONTEXT IN VARIOUS STATES: 


USER ' MONITOR MONITOR 
CONTEXT RUNNING SERVICE RUNNING 
LSR USER LS IN MONITOR LS—> 


USER HJIT IN MON HJIT 
(PER USER) (PER CPU) 


PSR/ASR USER PS/AS -——> NOT 
IN USER HJIT USED 

SSR USER SAFE=-"> MONITOR SS 
STONE IN IN MON HJIT 
USER HJIT 

MASTER/ SLAVE MASTER ————> 

SLAVE (PRIV) 


WSR7 8 oa % Q 
7-2 INT 8/85 


MULTIPROCESSING 


© USERS RUN STRICTLY IN USER CONTEXT - 
ANY CPU 


e MOST MONITOR SERVICES RUN IN USER 
CONTEXT — ANY CPU 


¢ FAULT HANDLER RUNS IN USER/CPU 
CONTEXT — ANY CPU 


7-34 INT 8/85 


MULTIPROCESSING (CONT) 
° SCHEDULER/PHYSICAL 1/0 - ANY 


e 1/0 INTERRUPT - MASTER ONLY 


7-38 INT 8/85 


THE MONITOR DOMAIN: 


© INSTRUCTION SEGMENT DESCRIPTOR 
LOCATES MONITOR PROCEDURE AND 
STATIC DATA IN THE MONITOR WS 


e DATA SEGMENT DESCRIPTORS LOCATE 
MONITOR DYNAMIC DATA 


e JIT, FILE BUFFERS, READ ONLY SEGMENT, 


HJIT LOCATES THESE AREAS IN ALL USERS, 
BUT WITH READ/WRITE ACCESS 


7-4A INT 8/85 


THE MONITOR DOMAIN: 
(CONT) 


e OTHER SPECIAL PURPOSE DESCRIPTORS 
ALSO PRESENT 


7-48 INT 8/85 


MONITOR EXECUTION MODES: 
© MONITOR SERVICE (EXECUTING PMMES) 
e RUNNING ON BEHALF OF USER 
* TIME CHARGED TO USER 
¢ RUNS IN USER CONTEXT 


7-5A INT 8/85 


MONITOR EXECUTION MODES: 
(CONT) 


e MONITOR EXECUTION (SCHEDULING, 
SERVICING INTERRUPTS, ETC.) 


e NOT RUNNING FOR ANY USER 


e TIME CHARGED TO SYSTEM 
OVERHEAD 


e RUNS IN CPU CONTEXT 


7-58 INT 8/85 


TYPES OF MONITOR DATA: 


e USER SPECIFIC (JIT, HJIT, PAGE 
TABLE, FILE BUFFERS, USER TSTACK) 


e CPU SPECIFIC (MONITOR, JIT, HUJIT, 
PAGE TABLE, PAGE TABLE DIRECTORY, 
PART OF INSTRUCTION SEGMENT DATA) 

e CPU GLOBAL 


e PART OF INSTRUCTION SEGMENT DATA 


7-6A INT 8/85 


TYPES OF MONITOR DATA: 
(CONT) 


e REAL (BUILT BY TIGR BASED ON 
CONFIGURATION NEEDS) 


* READ MEMORY AVAILABILITY 
LIST (PPUT) 


e DEVICE AND CHANNEL CONTROL TABLES 


7-6B INT 8/85 


TYPES OF MONITOR DATA: 
(CONT) 


e AND QUEUE BLOCKS 
e 1/0 CACHE CONTROL TABLES 
e RESOURCE TABLES 


7-6C INT 8/85 


TYPES OF MONITOR DATA: 
(CONT) 


¢ SHARED PROGRAM TABLES 
e DYNAMIC SEGMENTS 

¢ CFUS 

¢ ENQ/DEQ TABLES 


7-6D INT 8/85 


TYPES OF MONITOR DATA: 
(CONT) 


e USER TABLES 
¢ DYNAMIC REAL PAGES 
© 1/0 CACHE 


7-6E INT 8/85 


SCHEDULER: 


e EVENT DRIVEN, PRIORITIZED QUEUE 
SCHEDULING 


e ALL TYPES OF JOBS SAME EXCEPT 
FOR PRIORITY 


e CONTROLS TO PREVENT EXCESS 
SCHEDULING 


7-7A INT 8/85 


SCHEDULER: (CONT) 
¢ MOST (VOLUME) SERVICES RUN ON 
ANY CPU 


e PRIORITY INCREMENTS FOR CERTAIN 
EVENTS 


7-78 INT 8/85 


MONITOR SERVICES 


7-8 INT 8/85 


FILE MANAGEMENT STRUCTURE 
OVERVIEW 


7-9 INT 8/85 


PACKS AND PACK SETS 


SYSTEM 
PACK 


#SYS #USER1  #USER2 #USER3 


@ EACH VOLUME CONTAINS VID (Volume 
IDentification) 


7-10 INT 8/85 


MAD (Master Account Directory) 


PUBLIC ACCOUNT1 | CONTAINING PACKSET 
PUBLIC ACCOUNT 2 CONTAINING PACKSET 


PUBLIC ACCOUNT n CONTAINING PACKSET 


MAD CONTAINED ON #SYS 


INDICATES WHERE ACCOUNT MAY BE 


MAINTAINED BY MSMADMUCK, USUALLY VIA 
PIG AS RESULT OF PUBL KEYIN 


7-11 INT 8/85 


PAD (Packset Account Directory) 


FO I en ee * 
PACKSET OWNER, ATTRIBUTES 
DEFAULTS 


@ RESIDES ON APPROPRIATE PACKSET 


@ ACCOUNTS MAYBE ADDEDBY PIG, OR 
DYNAMICALLYIF ATTRIBUTES ALLOW 


(SET RELATIVE 
DISK ADDRESS) 


7-12 INT 8/85 


FD (File Directory) 


ACCOUNT OWNER, ATTRIBUTES, DEFAULTS 


7-13 INT 8/85 


FIT (File Information Table) 


ACCESS CONTROLS 
ORG, NRECS, UGRANS, GAVAL 


DATES (OPEN UPDATE INDICATOR) 
UATTR, INSTATTR 


TDA (Top Disk Address) 

FDA (First Disk Address) 

LDA (Last Disk Address) 

ALL ARE FRDA (File Relative Disk Address) 


GRANULE STAMP HASH 


7-14 INT 8/85 


CONSECUTIVE, UR, SYMBIONT FILE 
STRUCTURE 


GRANULE NUMBER 
MODULO 512 


® RECORD 
SPANNING FOR 
CONSEC, UR 


7-15 INT 8/85 


KEYED (INDEXED) FILE STRUCTURE 


LEVELO DATA 


TDA (LEVEL n) LEVEL n-1 


eee 


KEYTBL 
KEY 1 
KEY 2 


7-17 INT 8/85 


FILE MANAGEMENT SERVICE 


CATEGORIES 
DCB CONTROL 
RECORD MANIPULATION 
DEVICE CONTROL 
PRIVILEGED OPERATIONS 


7-18 INT 8/85 


RESOURCE MANAGEMENT SERVICES 
¢ RESOURCE TYPES 
° PHYSICAL RESOURCES 
¢ POOLED RESOURCES 
* PSEUDO RESOURCES 
° RESOURCE MANAGEMENT SERVICES 


e DIFFERENT TREATMENT AND 


LIMITS BY MODE 
7-19 INT 8/85 


MEMORY MANAGEMENT SERVICE 
CATEGORIES 

¢ ACQUIRE AND RELEASE MEMORY 
* MANIPULATE PAGE TABLE AND 

LINKAGE SEGMENT/ARGUMENT 

SEGMENT 
© PRIVILEGED AND T & D 

SERVICES 


7-20 INT 8/85 


EXECUTION CONTROL SERVICE 
CATEGORIES 


PROGRAM FLOW CONTROL SERVICES 
EXCEPTION CONDITION CONTROL 
SERVICES 


EXCEPTION CONDITION HANDLING 
SERVICES 


7-21A INT 8/85 


EXECUTION CONTROL SERVICE 
CATEGORIES (CONT) 


¢ PRIVILEGED/COMMAND PROGRAM 
SERVICES 


7-21B INT 8/85 


IREL KEY STRUCTURE 


HEADERS THE SAME 


PACKED DECIMAL (5 e 


| HEX | PACKED DECIMAL (s)_/7) 
ES WWW/duwdéwétttttbt 


7-22 INT 8/85 


lO CACHE 
SET ASSOCIATIVE (4 SLOTS/SET) 
HASH TO SET, SEARCH 
MANY CONTROLS AND STATS 


INTEGRATED WITH AUTOSHARE AND 
CG MEM 


7-23 INT 8/85 


GRANULE TYPES 


MAD, PAD, GP, FD, FIT, ME, UL 
INDEX, DATA, REL, CONSEC, ELSE 
CONTROLS AND STATS BY GRANULE 
TYPE | 


STATS/ANLZ GIVE INFO 


7-24 INT 8/85 


CACHE TABLE 


7-25 INT 8/85 


COMMUNICATION GROUPS 


Oe SS 


COMGROUP 
~ | = 


bee ae See i et ears cs J 38-1 INT 8/85 


CONNECTIONS TO COMGROUPS 


WITH ONLY WITH DCBs WITH ONLY 
DCBs AND STATIONS 
STATIONS (NO SUCH THING) 
8-2 INT 8/85 


FEP 


ADMINSTRATIONS 


FEP 
STATS 
ERRLOG 
DEBUG 
DIAGNOSTICS 


COMGROUPS INSIDE CP-6 


CONSOLE 
GHOSTS 


OPERATORS 
CONSOLES 


OUTPUT 
SYMBIONT 
DEVICES 


INPUT 
SYMBIONT 
DEVICES 


8-3 INT 8/85 


STATIONS 


OPEN COMGROUP 


DCB 


HOST MEMORY: 


MSOPEN 
MESSAGES 


TERMINALS 
(ACTIVE COMGROUP ONLY) 


BUFFER |" FM7-—""">> BACKING 


FILE 
SYSTEM 


DISK FILE: 

@ MSOPEN 

@ ACCESS CONTROLS 
@® BACKUP 

@ OVERFLOW 

@ PACKAGING 


8-4 INT 8/85 


CLOSED COMGROUP 


8-5 INT 8/85 


STATION 1/0 


STATION 
[NAME | | MBLK READ: MESSAGE TYPE 


wre ORIGIN STATION 


WRITE: MESSAGE TYPE 


DESTINATION STATION 


(DIRECT OR ANONYMOUS 
QUEUE) 


8-6 INT 8/85 


COMGROUP MESSAGE 


MESSAGE 
BLOCK 


ATTRIBUTES 


SMALL 
IDENTIFY BY MEMORY 
ADDRESS 


ATTRIBUTES 

- TYPE 

- ORIGIN STATION 

- DESTINATION 
(STATION/QUEUE) 

- PRIORITY 

- MESSAGE ID 


DATA 
BLOCK 


ARBITRARY SIZE 


IDENTIFIED BY DISK 
ADDRESS - CACHED 


DATA PART OF MESSAGE 


8-7 INT 8/85 


QUEUE ORGANIZATION 


STATION TREE MESSAGE oS TREE 


ofbe vi 


BINARY TREE BY STATION NAME 
e FAST ACCESS FOR DIRECT WRITES 


STATION NODE 
e CONTROLS STATION 1/0 
@ CONTAINS LIST OF MESSAGES TO THIS STATION 


@ ANONYMOUS QUEUE 
8-8A INT 8/85 


QUEUE ORGANIZATION 


STATION TREE MESSAGE TYPE TREE 


BINARY TREE BY MESSAGE TYPE 
e FAST ACCESS FOR READS/QUEUE WRITES 


MESSAGE TYPE NODE 

e MAXIMUM AND CURRENT ACTIVE 
e LIST OF READS 

e LIST OF MESSAGES OF THIS TYPE 
TOTAL SIZE LIMITED BY AU 


AUTOMATIC SPILL TO DISK 8-8B INT 8/85 


DISK CACHE 


CACHE TREE | HEADER | 


@ BINARY TREE BY DISK ADDRESS 
e FAST ACCESS 


@ NODE IS UNIT OF DISK 1/O: MEMORY PAGE 
e@ CONTAINS MULTIPLE DATA BLOCKS 


@ SIZE LIMITED BY AU 
@ GROWS AND SHRINKS (TO DISK) 


@ CHARGE COMGROUP OWNER 
8-9 INT 8/85 


READ AND LATCH 


STATION reap . QUEUE 
BLOCK 


SPECIFY TYPE (AND ORIGIN) 

LOOK UP IN TREE 

PICK OUT MESSAGE/LEAVE READ PENDING 
REMEMBER MESSAGE ‘CURRENT LATCHED INPUT’ 


CURRENT # ACTIVE OF TYPE 


MUST SUCCEED 
e REREAD 
e UNLATCH HOLD/RERUN 


8-10A INT 8/85 


READ AND LATCH 


READ QUEUE 
BLOCK 


STATION 


@ LATCHED OUTPUTS 
@ MESSAGE ID ‘SPAWN’ TRAIL 
e INVISIBLE 
e REPORTS/NEW TRANSACTIONS 


@ NEXT READ TRIGGERS UNLATCH 
e DELETE INPUT 
e@ SEND OUTPUTS 


8-10B INT 8/85 


1/0 FEATURES 


WILD-CARDED WRITE DESTINATION 
¢ BROADCAST 
e FIRST-FOUND 


WILD-CARDED READ 'KEYS' 
e MESSAGE TYPE 
¢ ORIGIN STATION 
READ: DIRECT ONLY/QUEUE 


WRITE DIRECT TO READER BUFFER 


8-11A INT 8/85 


1/0 FEATURES (CONT) 
LATCH/SECURE: BUFFERS THRU DATA BLOCKS 
WRITE CONTINUED MESSAGES 


e READER MAY IGNORE SEGMENTING OR PAGE 
THRU SEGMENTS 


MESSAGE PRIORITY FUNCTION OF TYPE AND © 
ORIGIN STATION 


READ: WAIT/AVAILABLE/ONE ONLY 
8-118 INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
CONTROL | 
» ACTIVATE/DEACTIVATE STATION 
» AU CONNECT/DISCONNECT 
° FLUSH 
° EXTEND DISK FILE 


e REDIRECT/DELETE MESSAGE 


8-12A INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
(CONT) 


e SET CONTROL PARAMETERS 

READ/WRITE ABSENT STATION 

SECURE 

MEMORY LIMITS 

MAXIMUM MESSAGE SIZE 

INPUT/OUTPUT LEGAL FOR 
TERMINALS 


e SET LIST OF MESSAGE TYPES 
e PRIORITY 
e MAXIMUM ACTIVE 8-12B INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
(CONT) 


e SET LIST OF STATIONS 
e PRIORITY 


8-12C INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
(CONT) 


INFORMATION 
CONNECT/DISCONNECT MESSAGE 
FREE SPACE WARNING MESSAGE 
"LATCH ABORT” MESSAGES 
RETRIEVE CONTROL PARAMETERS 


8-12D INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
(CONT) 


¢ STATISTICS 
¢ QUEUE DEPTH 
¢ TRANSACTION RATE 
e DISK CACHE 


¢ CURRENT MESSAGE TYPES 


e QUEUE DEPTH 
¢ STATISTICS 


8-12E INT 8/85 


ADMINISTRATIVE USER FUNCTIONS 
(CONT) 


e CURRENT STATIONS 
e DEPTH OF DIRECTED MESSAGES 
CS 


¢ STATISTI 
e PRESENT ABSENT 


8-12F INT 8/85 


COMGROUP MONITOR SERVICES 


M$OPEN 
M$CLOSE 


MSACTIVATE 
M$DEACTIVATE 
M$CGCTL 
M$CGINFO 
MS$FWCG 


8-13 INT 8/85 


WALKING TOURS OF SOME CP-6 
FUNCTIONS 


9-1 INT 8/85 


CREATING A TIME SHARING USER 


e LINE CONNECTS, HANDLER INFORMS NODE 
ADMINISTRATOR (FEP) 


¢ NODE ADMINISTRATOR CONVERSES WITH 
TERMINAL (IF NECESSARY) TO ACQUIRE 
LOGON STRING 


e NODE ADMINISTRATOR SENDS LOGON 


STRING AND END POINT ADDRESS (ON 
ADMIN PATH) TO SLUG IN THE HOST 


9-2A INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


¢ SLUG CONSULTS :HLP TO DETERMINE IF 
LOGON STRING IS AUTHORIZED 


e IF INVALID, SLUG RESPONDS ACCORDINGLY 
TO NODE ADMIN, AND HOST HAS NO FURTHER 
ACTION IN THIS LOGON ATTEMPT 


e IF VALID, SLUG DETERMINES THE KIND 
OF CONNECTION DEFINED BY THIS LOGON 
LOGON (IN THIS CASE TIME SHARING) 


9-28 INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


¢ SLUG CHECKS TO INSURE MAX ONLINE 
USERS NOT EXCEEDED, AND MAX TOTAL 
USERS NOT EXCEEDED 


¢ SLUG RESPONDS TO NODE ADMIN WITH 
THE HOST END POINT ADDRESS (LDCT) 


e NODE ADMIN COMPLETES THE PATH 
AND RELINQUISHES CONTROL OF THE END 
POINT 
9-2C INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


¢ SLUG STEALS THREE PHYSICAL PAGES 
(CAN FAIL) 


e SLUG BUILDS SKELETON JIT, HJIT, AND 
ROSEG, INSERTS NAME AND ACCOUNT 
INTO JIT AND LDCT INTO M$UE, (ROSEG) 


e SLUG EXECUTES CALL M$MAKUSER 
(CAN FAIL) 


9-2D INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


e M$MAKUSER ACQUIRES ADDITIONAL 
PHYSICAL PAGE FOR PAGE TABLE, 
INITIALIZES IT WITH THE FOUR 
USER CONTEXT PAGES, INITIALIZES 
TSTACK, REPORTS SCHEDULER EVENT 
E_AU (ADD USER) 


9-2E INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


¢ SCHEDULER GETS AVAILABLE USER 
TABLE SLOTS (SS_NULL), ASSIGNS 
SYSID, PUTS USER NUMBER AND 
SYSID INTO JIT, INITIALIZES 
USER TABLE SLOT (PAGE TABLE, 
ETC), AND PUTS NEW USER INTO 
EXECUTABLE STATE 


9-2F INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


e WHEN SCHEDULER PUTS NEW USER 
INTO EXECUTION, IT NOTICES THAT 
NO COMMAND PROGRAM IS ASSOCIATED 
AND INVOKES LOGON 


e LOGON DETERMINES IF USERS 


SUSPENDED, AND CONVERSES ABOUT 
WHAT TO DO 


9-26 INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


* LOGON INITIALIZES JIT (FROM 
USERS) WITH RESOURCES, LIMITS, 
DEFAULTS, SETUP (TO CCBUF) 


e LOGON EXECUTES M$CPEXIT TO 


ASSOCIATE COMMAND PROGRAM 
SPECIFIED IN :USERS 


9-2H INT 8/85 


CREATING A TIME SHARING USER 
(CONT) 


e WHEN (IF) IBEX GETS CONTROL, 
IT EXECUTES COMMAND IN CCBUF 


e PHEW! 


9-21 INT 8/85 


THE TRIP A TRANSACTION TAKES 
THROUGH TP 


e FPL PROGRAM DETERMINES IT 
HAS A COMPLETE TRANSACTION, 
AND SEND IT 


e HOST RECEIVES TRANSACTION 
AND INSERTS IT INTO COMGROUP 


9-3A INT 8/85 


THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 


¢ IF TRANSACTION TYPE SPECIFIES 
JOURNAL, TRANSACTION DIRECTED 
TO JAYS, ELSE TRANSACTION PUT 
ON ANONYMOUS QUEUE 


e TRANSACTION TYPE SATISFIES THE 
READ OF TPCP ASSOCIATED WITH SOME 
TPU FOR THE TP INSTANCE, OR THE 
READ OF A TPAP ASSOCIATED... 


9-38 INT 8/85 


THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 


e IF TPCP RECEIVES THE TRANSACTION, 
IT DETERMINES THE APPROPRIATE TPAP, 
AND EXECUTES M$CPEXIT TO FETCH IT 


e TPAP PROCESSES THE TRANSACTION, 
POSSIBLY SENDS RESPONSES/REPORTS, 
AND EVENTUALLY EXECUTES M$READ 
(OR M$UNLATCH), REMOVING THE 
TRANSACTION FROM THE COMGROUP 


9-3C INT 8/85 


THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 


e IF THE TRANSACTION TYPE REQUIRES 
JOURNAL, JAYS IS NOTIFIED TO WRITE 
‘END TRANSACTION’ RECORD TO JOURNAL 


9-3D INT 8/85 


TIME SHARING USER HITS BREAK 


e HANDLER DETECTS BREAK AND DOES 
APPROPRIATE LOCAL ACTION (CANCEL 
INPUT/OUTPUT) 


e HANDLER SENDS BREAK MESSAGE ON 
THE PATH TO HOST 


¢ HOST (FRONT END INTERFACE) SEES 


BREAK MESSAGE AND REPORTS E_BRK 
TO SCHEDULER 


9-4A INT 8/85 


TIME SHARING USER HITS BREAK 
(CONT) 


e SCHEDULER TAKES ONE OF TWO TYPES 
OF ACTION, DEPENDING ON CURRENT 
STATE OF USER. IF 'BREAKABLE' 
STATE (E.G., SLEEP, ENQUEUE WAIT, 
ETC) STATE IS CHANGED TO EXECUTABLE 
(SS_n), ELSE NO STATE CHANGE OCCURS. 
IN EITHER CASE, BREAK FLAG IS SET 
IN USER TABLE ENTRY 


9-48 INT 8/85 


TIME SHARING USER HITS BREAK 
(CONT) 


e WHEN USER IS NEXT SCHEDULED, IF 
BREAK FLAG IS SET, SCHEDULER ALTRETS 
FROM REG. CALLER OF REG SETS IC TO 
REEXECUTE PMME IF APPROPRIATE 


e ON NEXT EXIT FROM MONITOR TO USER, 


BREAK FLAG IS NOTICED. IF SET, 
APPROPRIATE ACTION IS TAKEN. 


9-4C INT 8/85 


TIME SHARING USER HITS BREAK 
(CONT) 


e IF DEBUGGER HAS REQUESTED BREAK 
CONTROL, CONTROL GOES TO DEBUGGER 


e IF USER HAS REQUESTED BREAK CONTROL, 
CONTROL GOES TO USERS BREAK ROUTINE 


e OTHERWISE CONTROL GOES TO COMMAND 
PROGRAM 


9-4D INT 8/85 


[/O0 COMPLETE EVEN ON NOWAIT 1/0 
FOR USER 
¢ 1/0 INTERRUPT OCCURS, HANDLER GET 
CONTROL TO DO CLEANUP, NIO$COMP IS 
CALLED TO SIGNAL OPERATION COMPLETED 


e¢ IF 1/0 ASSOCIATED WITH A DCB, DCB 
FUNCTION COUNT IS DECREMENTED 


9-5A INT 8/85 


|/O COMPLETE EVENT ON NOWAIT 
1/0 FOR USER (CONT) 
e IF EVENT WAS REQUESTED, SCHEDULER 
IS CALLED TO REPORT USER EVENT. 


SCHEDULER SETS USER TABLE FLAG 
INDICATING CACHE CLEAR IS REQUIRED 


¢ E_IOC IS REPORTED TO SCHEDULER 
(TO MAINTAIN MF) 


9-5B INT 8/85 


1/0 COMPLETE EVENT ON NOWAIT 
|/0 FOR USER (CONT) 


¢ ON NEXT EXIT FROM MONITOR TO 
USER, USER EVENT REQUESTS IS NOTED, 
CACHE CLEAR FLAG IS NOTED AND 
HONORED, AND USER EVENT ROUTINE 
IS ENTERED 


e IF NO EVENT WAS REQUESTED, USER 


MUST EXECUTE M$CHECK TO DETERMINE 
[1/0 COMPLETION (AND GET CACHE CLEARED) 


9-5C INT 8/85 


RUNNING DOWN A USER (STEP) 


e USER PROGRAM DOES M$EXIT SK errors 
OR ABORTS FOLLOWED BY M$CPEXIT (QUIT) 


e ALL DCBS (DCBNUM>=10 ARE CLOSED 
e CURRENT SHARED PROGRAM, SHARED 
LIBRARY, ASL, DEBUGGER (IF ANY) ARE 


DISASSOCIATED AFTER GETTING EXIT 
CONTROL IF REQUESTED 


9-6A INT 8/85 


RUNNING DOWN A USER (STEP) 
(CONT) 


e ALL MEMORY EXCEPT CONTEXT IS 
RELEASED 


e IF PROPRIETARY ACCOUNTING REQUIRED 
M$ACCT CALLED 


e IF STEP ACCOUNTING REQUIRED, M$ACCT 
CALLED 


9-6B INT 8/85 


RUNNING DOWN A USER (STEP) 
(CONT) 


e IF CP_LOGOFF SET IN JIT, USER IS 
LOGGED OFF (NEXT SLIDE) 


9-6C INT 8/85 


RUNNING DOWN A USER (LOGOFF) 


COMMAND PROGRAM DECIDES T0.LOG-OFF 
USER, ISSUES NSCPEXTY 161060 


STEP RUNDOWN IS PERFORMED (IF NOT 
ALREADY DONE) 


THe 
LOGON Is ASSOCIATED, DOES FINAL 
ACCOUNTING FUNCTIONS 


LOGON. ISSUES M$CPEXIT (OFF) 


9-7A INT 8/85 


RUNNING DOWN A USER (LOGOFF) 
(CONT) 


DISCONNECT RECORD IS SENT TO 
FEP (IF TS) 


MBS IS NOTIFIED (IF BATCH) 


E_OFF EVENT IS REPORTED TO 
SCHEDULER 


SCHEDULER RELEASES 4 CONTEXT 
PAGES 
9-7B INT 8/85 


RUNNING DOWN A USER (LOGOFF) 
(CONT) 


SCHEDULER CHANGES USER STATE TO 
SS_NULL 
USER NOT LONGER EXISTS 


FEP EITHER DROPS LINE OR REISSUES 
SALUATATION 


9-7C INT 8/85 


READ A RECORD FROM A T/S 
TERMINAL 


ASSUMPTIONS: NO TYPEAHEAD WAITING, 
NON-TRANSPARENT, VANILLA READ 


USER ISSUES M$READ 


KI MODULES OF MONITOR GET ENTERED 
FROM PMME, READ SENT TO FEI 


9-B8A INT 8/85 


READ A RECORD FROM A 1/S 
TERMINAL (CONT) 


© FEI PUTS READ REQUESTS INTO CIRCULAR 
QUEUE AND REGS USER (STI) — SIZE OF 
READ, DOMAIN, REREAD?, PATH ID (FROM 
LOCT ENTRY FROM sus) 

» READ REQUEST ARRIVES IN DESTINATION 
FEP (MAYBE VIA X.25 TO REMOTE 


e READ REQUEST DELIVERED TO VDH, 
SCHEDULED ON BEHALF OF THIS PATH 
CONTEXT (TERMINAL) 9-8B INT 8/85 


READ A RECORD FROM A T/S 
TERMINAL (CONT) 


e IF PROMPT FOR THIS DOMAIN NO NULL, 
TRANSLATE PROMPT (FROM CONTEXT) AND 
WRITE TO TERMINAL 


e ALLOCATE 16 WORD (32 CHAR) INPUT 
BUFFER 


e AS CHARACTERS ENTERED, IMP THEM, ECHO 
THEM, TRANSLATE THEM, AND INSERT INTO 
INPUT BUFFER 

9-8C INT 8/85 


READ A RECORD FROM A T/S 
TERMINAL (CONT) 


¢ IF INPUT BUFFER FULL, GET ONE TWICE 
AS BIG, MOVE EVERYTHING, CONTINUE 


¢ UPON ACTIVATION (EOM CHAR/COUNT/ 
TIMEOUT) STOP ECHOING CHARS, ANY 
MORE TYPED GO INTO TYPEAHEAD BUFFERS 


e READ RESPONSE MSG SEND BACK TOWARDS 
HOST END (CONTAINS PTR TO INPUT BUFFER) 


9-8D INT 8/85 


READ A RECORD FROM A T/S 
TERMINAL (CONT) 


e HOST END HANDLER IN FEP PUTS 
READ RESPONSE WITH DATA INTO 
INPUT CIRCULAR QUEUE 


e FEI RECEIVES READ RESPONSE IN ICQ, 
GETS CONTROL VIA 1/0 OR TIMER 
INTERRUPT AND USING CONTEXT IN 
LDCT ENTRY DELIVERS DATA TO USERS 
BUFFER, SETS ARE DCB 


9-8E INT 8/85 


READ A RECORD FROM A T/S 
TERMINAL (CONT) 


e FEI CALL SCHEDULER TO REPORT TERMINAL 
INPUT COMPLETE 


e SCHEDULER SET USER TO COMPUTE STATE 
(BASE PRIORITY + TIC INCREMENT) 


e KI GETS CONTROL WHEN USER 
SCHEDULED AND RETURNS TO USER 


9-B8F INT 8/85 


OPEN A FILE 


e USER ISSUES M$OPEN, FM MODULES 
ENTERED VIA PMME 


e MERGE OPEN PARAMETERS INTO DCB 
(MAYBE FMA FROM JIT) 


e CHECK CPUS FOR THIS FILE ALREADY 
OPEN/RECENTLY OPENED. IF FOUND 
SKIP DIRECTORY SEARCH, SRDA OF 
FIT IN CFU 


9-9A INT 8/85 


OPEN A FILE (CONT) 
e DIRECTORY SEARCH 
FPOOL AREA USED TO MAP IN CACHE 
DIRECTORY GRANS OR TO READ THEM 
IN FROM DISK IF NECESSARY 


SEARCH MAD FOR ACCOUNT NAME IF 
PACKSET NOT SPECIFIED IN M$OPEN 


9-9B INT 8/85 


OPEN A FILE (CONT) 


SEARCH PAD FOR SRDA OF FILE ACCOUNT 
DIRECTORY FOR THIS ACCOUNT NAME 


SEARCH FAD FOR SDRA OF FIT FOR THIS 
FILE NAME 


9-9C INT 8/85 


OPEN A FILE (CONT) 
¢ READ FIT INTO FPOOL PAGE 
¢ CHECK USER ACCOUNT NAME AGAINST 
ACCESS CONTROL LIST, IF FAILS TRY 
OTHER TRICKS (ACCESS VEHICLE, 
FMREAD/FMSEC PRIV) 


e ALLOCATE CFU ENTRY IF NOT 
ALREADY THERE, FILL IT IN 


9-9D INT 8/85 


OPEN A FILE (CONT) 


¢ MOVE INFO FROM FIT INTO DCB, 
MARK DCB OPEN 


e MOVE FPARMS TO USER IF REQUESTED 
ON M$OPEN 


e RETURN CONTROL TO USER 


9-9E INT 8/85 


READ A RECORD j ROM A (KEYED) 
FIL 


e IS DCB OPEN? NO GO BACK ONE 
CHART, DO OPEN, RETURN HERE 


e ASSUME ONE GRANULE FOR FIT, 
ONE GRANULE FOR KEYS, DATA ON 
SEPARATE GRANULES 


e ALLOCATE FPOOL FOR INDEX GRANULE 
(TRUNIC OTHER IS NECESSARY) 


9-10A INT 8/85 


READ A RECORD FROM A (KEYED) 
FILE (CONT) 


READ INDEX GRANULE (FRDA 
IN FIT) 


SEARCH FOR KEY (BIN SEARCH) 


FROM KEY GET FRDA OF DATA GRANULE(S), 
WORD OFFSET, BYTE COUNT OF RECORD 


ALLOCATE FPOOL FOR DATA GRANULE 


9-108 INT 8/85 


READ A RECORD FROM A (KEYED) 
FILE (CONT) 


READ IN DATA GRANULE 


MOVE DATA FROM GRANULE TO 
USER BUFFER 


REPEAT ABOVE FOR EACH CONTINUED 
CHUNK OF RECORD 


9-10C INT 8/85 


READ A RECORD FROM A (KEYED) 
FILE (CONT) 


e SET ARS IN DCB 
e RETURN TO USER 


9-100 INT 8/85 


CONNECT A DCB TO A (CLOSED) 
COMGROUP 


e USING FM ROUTINES OPEN THE 
COMGROUP FILE 


¢ GET A PAGE FOR CB CONTEXT 
BLOCK 


¢ GET A PAGE FOR DESCRIPTOR 
SEGMENT BLOCK 


9-11A INT 8/85 


CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 


ay CG CONTEXT BLOCK FROM GRAN 0 OF 


USING CGCTX ALLOCATE APPROPRIATE 
DESCRIPTORS, GET THE RIGHT PAGES IN 
THE 10K CHUNKS FO CGWS, AND READ IN 
THE GRANULES OF THE SAVED “ACTIVE” 
IMAGE INTO THE APPROPRIATE PAGES. 


9-11B INT 8/85 


CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 


START CLOCK 


RUN AROUND MAKING SURE THINGS ARE 
0.K. (RECOVERY DIDN'T CLOSE RIGHT?) 


INSERT NODE INTO "EMPTY" STATION 
FOR THIS DCB STATION 


FILL IN NODE WITH STATION NAME, 
NOTE IF THIS IS AU IN NODE AND IN 


CGCTX 9-11C INT 8/85 


CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 


e RETURN CONTROL TO USER 


9-11D INT 8/85 


CONNECT A TERMINAL TO A 
COMGROUP 


¢ SLUG RECEIVES LOGON STRING 
AS MESSAGE ON HLPCG FROM FEI 
WHICH LOOKS LIKE A TERMINAL 
STATION ON HLPCG FOR EACH FEP 


¢ LOGON STRING KEYED INTO :HLP 
FILE FOR TERMINAL INFO: 


DEFAULT PROFILE (IT OR SPECIFIED 
PROFILE SENT TO FEP FOR THIS PATH) 


9-12A INT 8/85 


CONNECT A TERMINAL TO A 
COMGROUP (CONT) 


STATION NAME 
COMGROUP TO CONNECT TO 


¢ SLUG ISSUES M$TRMCON TO COMGROUP 
CODE IN MONITOR (KQ) 


¢ KQ MODULES FIND CONTEXT BLOCK FOR 
THIS COMGROUP — IF NOT THERE ALTRET 
(*NOCG) 


9-128 INT 8/85 


CONNECT A TERMINAL TO A 
COMGROUP (CONT) 
e FROM COMGROUP CONTEXT BLOCK 
ALL IS KNOWN ABOUT LOCATING 
COMGROUP 


e STATION MODE INSERTED IN CG IF 
ITS NOT THERE 


9-12C INT 8/85 


CONNECT A TERMINAL TO A 
COMGROUP (CONT) 

IF NODE ALREADY THERE (NOT CONNECTED, 

WITH MSGS WAITING) THEN IF CGCTL 


ALLOWS ACTIVATION, START SENDING 
QUEUED MSG'S TO TERMINAL 


IF AU CONNECTED BUILD *AUEV 
MSG, DELIVER TO AU STATION 


9-12D INT 8/85 


DATA NET 8 (L6) ARCHITECTURE 


10-1 INT 8/85 


GENERAL ARCHITECTURE 
16 BIT MINI-COMPUTER 
7-16 BIT GENERAL REGISTER 
7-20 BIT BASE REGISTER 
le INSTRUCTION PROCESSOR 


10-2 INT 8/85 


MEMORY MANAGEMENT 
1 MW VIRTUAL ADDRESS SPACE 
16 4KW SEGMENTS 
15 64KW SEGMENTS 
R,W,E PROTECTION 


SEGMENT MUST BE CONTIGUOUS 
REAL 


10-3 INT 8/85 


MEMORY ARCHITECTURE 
¢ SEGMENT DESCRIPTOR — 
BASE, SIZE (MOD 256 WORDS) 
VALID BIT 
RING PROTECTION R,W,E 


10-4A INT 8/85 


MEMORY ARCHITECTURE (CONT) 
° ASD 


¢ TRAP, INTERRUPT 


10-48 INT 8/85 


INTERRUPTS 


64 LEVELS (0-63) 

0,1,2 RESERVED 

CONTEXT SWITCH CONTROLLED BY 
MASK 


LEV INSTRUCTION 


10-5 INT 8/85 


INTERRUPT SAVE AREA 


DESINATED 
INTERRUPT MEMORY 
LEVELS LOCATION 


(LAF) 
oO 
CONTEXT 
20 LEVEL 20 
——$————> 00048 _ ISA lisa 
° TSAP r~Tsap 1 
ce aa! es 
—ee> OOOBC [1000 1 000 DEV AB20] DEV 


1001] _ismi_| ap2i{_1SM1_ 
1002|_ism2°_| ap22|_ISM°_| 


10-6 INT 8/85 


TRAPS 
TRAP VECTOR IN REAL MEMORY 
CONTEXT STORED IN TSA 


TSA'S IN FOUR POOLS 
PARTIAL CONTEXT AUTOMATIC 


TSA LINKED TO CURRENT INTERRUPT 
MCL IS A TRAP 


10-7 INT 8/85 


TRAP VECTOR AND INTERRUPT VECTOR 
LINKAGE 


AVAILABLE TSAs (POOL 0) 
HARDWARE DEDICATED 


MEMORY LOCATIONS TSA 


| jpu—a>{ NULL 
ETC 
0010] NATSAPO 


TRAP 
HANDLER 


OPT WORK 
SPACE 


OOBFT IV #63 


10-8 INT 8/85 


LCP—6 OPERATING SYSTEM FEATURES 
GENERAL FEATURES 

USE OF MEMORY MANAGEMENT 

USE OF INTERRUPTS 

KINDS OF USERS 

DEBUGGING 


10-9 INT 8/85 


VIRTUAL MEMORY ALLOCATION 
* 1 MEG VIRTUAL SPACE LIKE WS ON 
HOST 


ONLY ONE WS VISIBLE 


© NO PAGE MAP 
SHUFFLING 
1/0 MEMORY 
FRAGMENTATION 


e ADDRESS SPACE DEFINED BY ASDT 
IN HJIT 
10-11 INT 8/85 


16:11 AUG 09 ‘85 FEP_SEGS 


ACTIVE PROCESS ------ > 

MMU IMAGE SOURCE ----> 
# UASDT MASDT VADDOR 
00 .5000 503E 00000 
01 .5002 .5040 01000 
02. .5004 .5042 02000 
03 .5006 5044 03000 
04 .5008 5046 04000 
05 .500A 5048 05000 
06 .500C 504A 06000 
07 .500E .504C 07000 
08 .5010 .504E 08000 
09 .5012 .5050 09000 
10) .5014 .5052 0A000 
ll .5016 .5054 0BO00 
12 .5018 .5056 .0C000 
13. .501A .5058 .0DO00 
14° .501C .505A 0E000 
15 .SOlE .505C OFO00 
16 .5020 505E 10000 
17.5022 5060 20000 
18 .5024 .5062 30000 
19.5026 5064 .40000 
20 .5028 5066 50000 
21 .502A 5068 60000 
22 = =.502C 506A 70000 
23. .502E .506C 80000 
24 .5030 .506E 90000 
25 .5032 .5070 A0000 
26 .5034 .5072 BOO00 
27 = .5036 .5074 C0000 
28 = .5038 5076 DOO00 
29 =. 503A 5078 E0000 
30 .503C 507A FQ000 


USER/HANDLER 
UHJIT.ASDT_USR 


MHJIT 
MON_ENTRY_DATA 
MON_ENTRY 
USER_DS1 
USER_DS2 

CP_DS 


* 
* 


USER_IS1 
USER_ITS2 
USER_1S3 
USER_IS4 
USER_IS5 
USER_IS6 (L 
USER_IS7 (L 
DB_PROC 
CP_PROC 
UAUTO_DS 
USER_DS3 
USER_DS4 
HAND_@Q 

* 


* 


MON FOR USER 
UHJIT.ASDT_MCL 


T 
MON_ENTRY_DATA 
MON_ENTRY 
LPAR1 

LPAR2 

LPAR3 

LPAR4 

LPAR5S 

LPAR6 


MON_IS1 
MON_IS2 


DB_PROC 
WINDOW] 
* 
* 


BOBCAT 
HAND_Q 
* 


BIGFOOT 


MONITOR 
MHJIT.ASDT_MOK 


MHJIT 
MON_ENTRY_DATA 
MON_ENTRY 


DB_PROC 
WINDOW] 


* 


BOBCAT 
* 


* 


BIGFOOT 


10-12 INT 8/85 


SCHEDULING IN LCP-6 


SCHEDULED EXECUTION AT LEVEL 
63 


~ FPRGS, HANDLERS BASE LEVEL 
SCHEDULER RUNS AT LEVEL 62 
REAL TIME CLOCK AT LEVEL 61 


10-13A INT 8/85 


SCHEDULING IN LCP-6 
(CONT) 
e LEVELS 12-60 AVAILABLE FOR 
HANDLERS CONNECTED INDIRECTLY 
VIA M$INTCON 


e LEVEL 3 COMMON INHIBIT LEVEL 


10-13B INT 8/85 


KINDS OF FEP USERS 


¢ USER FRONT END PROGRAMS 

¢ COMGROUP FRONT END PROGRAMS 
e GHOST FRONT END PROGRAMS 
HANDLER FRONT END PROGRAMS 


10-14 INT 8/85 


USER FPRG 


e IN PATH BETWEEN HOST USER AND 
DEVICE 


e ABORTED WHEN HOST DCB CLOSED 
e OPEN RES='UCnn', ORG=FPRG 


10-15A INT 8/85 


USER FPRG (CONT) 
° USES | 
— DATA REDUCTION/CONVERSION 
— SCREEN ORIENTED FUNCTIONS 
- E.G. DIGIS 


10-15B INT 8/85 


COMGROUP FPRG 


IN PATH BETWEEN HOST COMGROUP 
AND TERMINAL STATION 


STARTED/STOPPED BY CG ADMINISTRATOR 
— M$ACTIVE MAKEFPRG=YES 
— M$DEACTIVATE OR CG AU DISCONNECT 


10-16A INT 8/85 


COMGROUP FPRG (CONT) 
USES | 
- FORMS CONTROL 
- E.G. FPL FOR TP 


10-16B INT 8/85 


GHOST FPRG 
* CONNECTED TO HOST DCB ONLY 
* ABORTED WHEN HOST DCB CLOSED 
OPEN RES='FEnn', ORG=FPRG 
° USES 
- E.G. COLTS, PIGETTE, ANLZ 


10-17 INT 8/85 


HANDLER FPRG 


¢ STARTED THROUGH HOST DCB, THEN 
INDEPENDENT 


e MAY CONNECT TO DEVICES, LINES 
e OPEN RES='FEnn’, ORG=HANDLER 


10-18A INT 8/85 


HANDLER FPRG (CONT) 
° USES | 
- DEVICE HANDLERS E.G. ASYNC 
- NODE ADMINISTRATOR 
- GATEWAYS 


10-18B INT 8/85 


DEBUGGING FEPS AND FPRGS 


DELTA REPLACES FOX AND FEPANLZ 
DEBUGGING FUNCTION 


CAN BE USED TO DEBUG 
- USER FPRG (WITH HOST PROGRAM) 
- COMGROUP FPRG (W/O HOST PROGRAM) 


10-19A INT 8/85 


DEBUGGING FEPS AND FPRGS 
(CONT) 


~ ENTIRE FEP IN EXECUTIVE MODE VIA 
SA ASYNC 


~ FPL PROGRAMS IN CONCERT WITH FPL 
INTERPRETER 


10-19B INT 8/85 


DEBUGGING HOST FPRGS 


e AUTOMATIC IF DEBUGGING HOST 
PROGRAM 


¢ USE UCnn/USE HOST/USE FEnn 


10-20 INT 8/85 


DELTA USED TO DEBUG HOST PROGRAM 
AND FPRG SIMULTANEOUSLY 


10-21 INT 8/85 


DEBUGGING COMGROUP FPRGS 


¢ DELTA STARTED ONLINE W/O HOST 
PROGRAM 


¢ DEBUG STATION_NAME AT CG/COMGROUP 
e IF FPRG HAS FPL ASSOCIATED 
- FPL COOPERATES WITH DELTA 


10-22A INT 8/85 


DEBUGGING COMGROUP FPRGS 
(CONT) 


- STATEMENT BREAKPOINTS ONLY 
- DISPLAY/LET 
- NO MODIFY/DUMP 


10-228 INT 8/85 


DELTA USED TO DEBUG TP FPRG 


HOST FEP 


10-23 INT 8/85 


FEP USERS 
AND 
SYSTEM COMPONENTS 


11-1 INT 8/85 


SYSTEM SERVICE INTERFACE 
MCL IS USED FOR ENTRY 
e FPT IS SIMILAR TO HOST 
e VECTORS INTERFACED BY SOFTWARE 


11-2 INT 8/85 


LCP6 OU/RU 
* FORMATS/SCHEMA SAME AS ON 
HOST 


e FEPLINK OFFERS SUBSET OF LINK 
FEATURES 


¢ DELTA PROCESSES HOST/FEP SCHEMA 
WITH SAME CODE 


11-3A INT 8/85 


LCP6 OU/RU (CONT) 


¢ DELTA HAS SEPARATE CODE FOR MEMORY 
REFERENCE, INSTRUCTION INTERPRETATION 


11-3B INT 8/85 


CALLING SEQUENCE 
+ SAME PRINCIPLE AS ON HOST 
¢ LIMITED ARGUMENT DESCRIPTORS 
* NO RUNTIME CHECKING 


11-4 INT 8/85 


CALL 


[LAB, B3 ptrs | 
LAB, B4_ descs 


LNJ, B6 sub 
DC altret, PREL (i if none) 


11-5 INT 8/85 


RECEIVING SEQUENCE 


LNJ, B5 = X6A_AUTO_N 
DC Frameinfo 
DC numargs 


ee 
°9 


LNJ, B4  X6A_ARET 


11-6 INT 8/85 


AUTO STORAGE BASE 


CUR_T_REG 


BOTTOM_FRAMES 


AUTO_TYPE 


11-7 INT 8/85 


AUTO HEAD 


MUST_BE_NIL 


11-8 INT 8/85 


AUTO FRAME FORMAT 
B7 LOCATES AUTO FRAME 


=1 


RET_ADDR 
1 


PREV_FR_SIZE 


° 


Qo nN 


11-9 INT 8/85 


FRAMES ALLOCATED UP/DOWN 
* MONITOR (FIXED AUTO) USES STACK 
* USER PERVERTS STACK 


11-10 INT 8/85 


LCP6 LIBRARIES 
e FPL | 
° VDH 


11-11 INT 8/85 


FPL LIBRARY 
» SUPPORTS INTERPRETIVE PROCEDURE 


e IN-LINE CODE FOR ENTRY, EXIT, 
CALL 


e SUPPORTS DELTA 


11-12 INT 8/85 


VDH 


PROVIDES FORMATTING, IMPS, ETC. 


ALSO ACTS AS PROTOCOL ENGINE 
CONTAINS HANDLER COMMON 
HASP/3780 + 3270 (OPTIONAL) 


11-13 INT 8/85 


HANDLER COMMON 
° STATS | 
© CONTROL/NETCON 
° ERROR LOG 


11-14 INT 8/85 


ASYNC 
* LINE MANAGEMENT 
e WORKS WITH VDH 


11-15 INT 8/85 


BISYNC 
+ HANDLERS HASP, 2780/3780, 
3270 


e WORKS WITH VDH 
e FUTURE NJE 


11-16 INT 8/85 


UNIT REC 
* HANDLES LP, CR, CP 
* INTERFACE SAME AS BISYNC 


11-17 INT 8/85 


HDLCX25 
° REMOTE FEPS | 
© X.29 


e FUTURE X.28, PROGRAMMING 
X.25 


11-18 INT 8/85 


NODEADMN 
* CONDUCTS LOGON DIALOGUE 
* PROCESSES NETCON ACTIONS 


¢ COMMUNICATES WITH HANDLERS VIA 
BOBCAT DATA 


11-19 INT 8/85 


COUPLER 
HAS COUNTERPART IN HOST 
MANAGES CIRCULAR QUEUES 
FORWARDS DATA TO CORRECT HANDLER 
DETECTS HOST REQUESTED OPERATIONS 


11-20 INT 8/85 


ANLZ_FPRG, DELTA_FPRG 
* AGENTS FOR HOST COUNTERPARTS 
* DO MEMORY FETCH/STORE 
* ALSO BREAKPOINTS, ETC. 


11-21 INT 8/85 


OTHER FPRGS 
TND (COLTS) | 
COMMAND__FP 
PIGLET 
XCC$MCS__FORM 


11-22 INT 8/85 


17:07 AUG 29 ’85 DRIB:STATS.ZZINT 


DRIBBLE ON @ 22:45 08/22/85 
$STATS 
STATS COO here 
#FILE STATDATA. :SYS 
#SPAN 9:00-15:00 
#SUM ONL, BAT, EXE, SERV, MON, IOS, PMME, MEM, ETMF 
#REPL 


Interval end Online Batch % exec % serv % mon I/Os PMMEs Free Pgs ETMF 
*** Data follows for THU. AUG 22 ’85 *** 


09:18:04.20 58 3 152.6 124.4 21.0 38631 22769 2905 1 
09:48:03.74 63 3 158.8 98.9 17.5 35038 21185 3145 1 
10:18:03.63 68 3 146.8 128.1 16.4 2393 29091 S274 a 
10:48:03.47 63 3 159.0 94.2 19.8 3434 19106 2889 1 
11:18:03.91 68 4 180.2 96.6 15.2 2190 26267 5310 2 
11:48:04.46 71 3 156.8 112.1 18.8 3269 22614 3138 2 
12:18:04.90 69 4 177.5 99.6 17.3 2854 21174 3297 1 
12:48:04.98 77 4 186.0 95.5 15.0 2299 23432 3001 1 
13:18:04.69 76 ra) 171.2 103.2 14.3 2498 25371 3842 1 
13:48:05.21 77 4 146.2 109.0 19.3 2446 26529 2365 2 
14:18:05.93 75 4 183.3 99.2 16.7 2730 23095 2396 2 
14:48:05.62 79 4 162.1 118.0 15.8 2215 25507 3229 1 
#GLOM 


Interval end Online Batch % exec % serv % mon I/Os PMMES Free Pgs ETMF 
14:48:05.62 79 4 166.1 105.0 16.9 2675 23824 3229 a 


#PLOT MON(O0-20) VS IOS(0-4000) 


23 and above 


OrPNALHUONWO 


#HIST ALL 
+GLOM 


Y-axis: % mon (linear, O - 20) 
X-axis: I/Os (linear, 0 - 4000) 
12 intervals met the selection criteria. 


/---|---|--- |---| --- |---| ---1---1---1---1\ 
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| I 
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| | 
| | 
| | 
| | 
| | 
| | 
\--- | --- | --- | --- | --- | --- | --- |---| ---1---1/ 
| $20 1! 1160 ! 2000 | 2840 | 3680 | 
6) 740 1580 2420 3260 4000 
Character + 

Min hits 1 

Max hits 1 


STATS interval from 09:17:33.05 to 14:48:05.62 


"Snap" histogram of interactive response time 


(milliseconds) /---|!---|---|---1!---1|---|---|!---1!---1!---1I\ 
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51 to 100 [es ‘-\ 2870 
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201 to 500 1m ! 5 
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1001 to 2000 | ! 6) 
2001 and above | ! 0 
\w-- |---| --- | --- | --- | --- |---| ---1---l---1/000 ------- 
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to l 


to 10 
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to 100 
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to 500 

to 1000 
to 2000 
and above 


"All" histogram of interactive response time 
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"Snap" histogram of user memory sizes 
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"All" histogram of user memory sizes 


(pages ) /--- |---| --- |---| ---|--- |---| ---1---1!---1\ 
0 to 5 |* 409 ( 
6 to 10 [KR KR KK KK x 26618 ( 
11 to 15 | #K Ke ‘----\ 12804 ( 
16 to 20 [ae aee* ‘---\ 11343 ( 
21 to 25 [Pere ‘---\ 9842 ( 
26 to 30 I< ! 845 ( 
31 to 35 ie \ 1555 ( 
36 to 40 1* | 246 ( 
41 to 45 \* ! 836 ( 
46 to 50 | *** ‘--\ 7267 ( 
51 to 55 \* \ 1579 ( 
56 to 60 1* ! 289 ( 
61 to 65 1* ! 1174 ( 
66 to 70 | * ! 395 ( 
71 to 75 1* \ 103 ( 
76 to 80 1* \ | 3067 ( 
81 to 85 1* ! 119 ( 
86 to 90 | ** Ae 3457 ( 
91 to 95 \* 1 | 248 ( 
96 and above |* \I 2605 ( 
\--- |---| --- | --- | --- |---| ---1---|---1---1!/ 9 ------- 

84801 


"Snap" histogram of time required to complete user service requests 


No events occurred in this interval - histogram skipped. 


"All" histogram of time required to complete user service requests 


No events occurred in this interval - histogram skipped. 


AOhOKRDOORFONORFPONDH 


(milliseconds) 


0 to 


"Snap" histogram of compute time between interactions 


10 
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"All" histogram of compute time between interactions 


(milliseconds) 
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#DISPLAY CPU,SCPU,RES,IO 
#+GLOM 


STATS interval from 09:17:33.05 to 14:48:05.62 


{all} {snap} {all} {snap} 
% batch execution 97.8 114.3 ETMF 1 1 
% batch service 25.4 35.8 90% response time 50 50 
% online execution 12.1 29.9 I/O load factor 1l 42 
% online service 22.6 38.8 # of batch users 2 4 
% ghost execution 25.4 21.8 # of online users 30 79 
% ghost service 25.9 29.5 + of ghost users 22 24 
% TP execution 0.0 0.0 # of TP users 1 2 
% TP service 0.0 0.0 I/Os per minute 2023 2675 
% monitor execution 14.1 16.9 Schedules per minute 2665 3270 
% I/O wait 29.7 9.1 Interactions per min 242 143 
% resource wait 0.0 0.0 Events per minute 4673 5662 
% I/O’resource wait 0.1 0.2 PMMEs per minute 19275 25824 
% true idle 47.0 2.0 Avg. usec per PMME 2518 2648 
Total 298.9 299.5 Minutes in interval 1475 330 


Master CPU Slave CPU 2 Slave CPU 3 Slave CPU 4 
{all} {snap} {all} {snap} {all} {snap} {all} {snap} 


% user execution 34 45 e) ie) 0 0 49 60 
% user service 30 39 e) 8) ie) 0 al 33 
% monitor exec. 10 12 e) ie) e) 0 2 2 
% I/O wait 11 3 (0) 6) 6) 0 9 3 
% resource wait 0 0 0 ie) 0 @) 0 ie) 
% I/O & res wait (6) 6) 6) O 6) 6) (6) (6) 
% true idle 11 1 6) 6) 6) (6) 17 1 
% unaccountable 0 (6) 100 100 100 100 ) 8) 
Schedules/minute 1426 1527 0 6) 0 0 622 875 
Events/nminute 3717 4362 0 0 ie) 6) 480 652 
PMME starts/min. 9898 11191 0 ie) 0 ie) 4724 6402 
PMME ends/min. 9897 11183 0) 0 6) 0) 4724 6405 
Slave CPU 5 Slave CPU 6 
{all} {snap} {a11} {snap} 
% user execution 49 60 0 0 
% user service 21 33 0 (s) 
% monitor exec. 2 3 0 0 
% I/O wait 9 3 ) 6) 
% resource wait ie) 0 6) 0 
% I/O & res wait (@) 0 (0) ie) 
% true idle 17 1 0 0 
% unaccountable (6) 0 100 100 
Schedules/ninute 617 865 ie) 8) 
Events/minute 476 646 0 6) 
PMME starts/min. 4650 6231 0 0 
PMME ends/min. 4651 6235 0 0 
CP-6 monitor resource utilization 
{Resource name} { # in} {---since system boot---} { Total } 
{use now} { (max) (min) (average) } {available} 
T0Q packets 44 100 O 45 110 
IOS packets 103 104 57 85 397 
I/O cache entries 2918 4212 3 3008 4096 
Enqueue/Dequeue data blocks 649 2239 11 509 2560 


Scheduler Do-list entries 1 12 6) (0) 50 


I/O cache activity (actions per minute) 


Attempted Hits Hits Percent Attempted Failed Unused 

Gets uCc=0 uCc>0 Hits Puts Puts Pages 
36 35 6) 99 fe) ie) 15 {all} 
77 77 0 99 fe) ie) 15 {snap} 
13 13 8) 96 fe) i) 11 {all} 
7 6 8) 90 1 (0) 22 {snap} 
73 65 7 99 ie) 6) 26 {all} 
115 104 11 99 6) ) 18 {snap} 
500 485 4 97 11 ) 175 {all} 
528 514 6 98 9 ) 163 {snap} 
426 276 7 66 143 ) 710 {all} 
671 493 13 75 166 fe) 233 {snap} 
40 36 3 97 2 ) 30 {all} 
63 54 7 97 3 fe) 50 {snap} 
197 160 8 85 41 fe) 99 {all} 
ev7l 210 12 81 67 fe) 290 {snap} 
824 605 43 78 263 fe) 349 {all} 
1274 882 55 73 445 ¢) 1698 {snap} 
0 fe) ce) 49 fe) 6) Oo {all} 
8) 0 8) 0 8) ) O {snap} 
135 80 fe) 59 133 6) 1099 {all} 
277 125 1 45 343 ) 41 {snap} 
20 0 ie) 1 23 ) O {all} 
35 fe) s) 1 40 (e) O {snap} 
2266 1757 73 80 617 fe) 2514 {all} 
3324 2469 105 77 1074 6) 2530 {snap} 


CP-6 memory utilization 


AARDVARK and RECOVERY 

XDELTA and monitor debug schema 

Monitor procedure and static data 

Monitor context (JITs, HJITs, PPUT, page tables) 
Monitor dynamic data segments 

TIGR-built tables 

Communications WSQs 

Comgroup queue 

Total pages held back for monitor use 
Resident system ghosts 

Required processors (IBEX, DELTA, LOGON) 

All other special shared (resident) processors 


Total dedicated memory 


Available to users 

Currently allocated to users 
Automatically shared run units in use 
Shared data segments in use 

Free pages 

Automatically shared run units not in use 
I/O cache pages (Use Count = 0) 

Total pages currently available 

I/O cache pages 

Number of pages not accounted for 
Total physical pages in system 


Device + of connects % % % % load 


name connects per min. idle wait busy backlog factor 

§C010000 3773 11 100.0 0.0 0.0 0.0 0.0 {snap} 
12537 8 100.0 0.0 0.0 0.0 0.0 {all} 

DCO10000 §=145124 439 100.0 0.0 0.0 0.0 0.0 {snap} 
359950 243 100.0 0.0 0.0 0.0 0.0 {all} 

DCOZ0000 284827 861 100.0 0.0 0.0 0.0 0.0 {snap} 
715820 484 100.0 0.0 0.0 0.0 0.0 {all} 

DPO10000 98149 296 85.8 0.1 11.7 2.4 17.5 {snap} 
283045 191 91.4 0.0 7.2 1.4 16.6 {all} 

DPOZ0000 146134 442 78.8 0.1 16.4 4.7 22.5 {snap} 
342938 232 89.1 0.0 8.6 2.2 20.7 {all} 

DPO3SO000 = =—:163738 495 77.3 0.1 16.7 5.9 26.5 {snap} 
391650 265 88.1 0.1 9.8 2.1 17.7 {all} 

DP040000 12 fe) 100.0 0.0 0.0 0.0 1.7 {snap} 
3273 2 99.9 0.0 0.1 0.1 58.0 {all} 

DPO50000 10615 32 97.9 0.0 1.5 0.7 32.1 {snap} 
24654 16 99.1 0.0 0.7 0.2 21.6 {all} 

DPO60000 11227 33 97.8 0.0 1.5 0.6 29.7 {snap} 
25289 17 99.0 0.0 0.8 0.2 19.1 {all} 

DPO80000 49 fe) 100.0 0.0 0.0 0.0 1.1 {snap} 
398 6) 100.0 0.0 0.0 0.0 1.0 {all} 

DPO90000 15 ) 100.0 0.0 0.0 0.0 0.5 {snap} 
1446 0 100.0 0.0 0.0 0.0 0.9 {all} 

DP110000 12 fe) 100.0 0.0 0.0 0.0 0.0 {snap} 
2692 1 99.9 0.0 0.1 0.0 0.7 {all} 

DCOSOO00 = 2110720 637 100.0 0.0 0.0 0.0 0.0 {snap} 
875570 593 100.0 0.0 0.0 0.0 0.0 {all} 

DCO40000 §=210754 637 100.0 0.0 0.0 0.0 0.0 {snap} 
874614 592 100.0 0.0 0.0 0.0 0.0 {all} 

DP210000 12000 36 98.6 0.0 1.3 0.0 2.7 {snap} 
31481 21 99.2 0.0 0.8 0.0 3.6 {all} 

DP230000 2503 7 99.7 0.0 0.3 0.0 7.0 {snap} 
6620 4 99.8 0.0 0.2 0.0 4.0 {all} 

DP250000 35786 108 94.6 0.0 5.2 0.1 2.8 {snap} 
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IOM-chan + of connects % % % % load 


number connects per min. idle wait busy backlog factor 

0-08 35869 108 95.0 0.0 5.0 0.0 0.0 {snap} 
89471 60 97.3 0.0 2.7 0.0 0.0 {all} 

0-09 37009 111 94.9 0.0 5.1 0.0 0.0 {snap} 
90966 61 97.3 0.0 2.7 0.0 0.0 {all} 

0-10 34899 105 95.0 0.0 5.0 0.0 0.0 {snap} 
88389 59 97.3 0.0 2.7 0.0 0.0 {all} 

0-11 37347 112 94.9 0.0 5.1 0.0 0.0 {snap} 
91120 61 97.3 0.0 PA 0.0 0.0 {all} 

0-12 36444 110 94.8 0.0 5.2 0.0 0.0 {snap} 
90643 61 97.2 0.0 2.8 0.0 0.0 {all} 

0-13 35007 105 94.8 0.0 5.2 0.0 0.0 {snap} 
88993 60 97.2 0.0 2.8 0.0 0.0 {all} 

0-14 35063 106 94.9 0.0 5.1 0.0 0.0 {snap} 
89020 60 97.3 0.0 2.7 0.0 0.0 {all} 

0-15 36184 109 94.8 0.0 5.2 0.0 0.0 {snap} 
89513 . 60 97.2 0.0 2.8 0.0 0.0 {all} 

0-16 13068 39 97.5 0.0 2.5 0.0 0.0 {snap} 
69413 47 97.3 0.0 2.7 0.0 0.0 {all} 

0-17 13066 39 97.5 0.0 2.5 0.0 0.0 {snap} 
69394 47 97.2 0.0 2.8 0.0 0.0 {all} 

0-20 52643 159 93.7 0.0 6.3 0.0 0.0 {snap} 
218965 148 94.5 0.0 5.5 0.0 0.0 {all} 

0-21 52661 159 93.7 0.0 6.3 0.0 0.0 {snap} 
218562 148 94.5 0.0 5.5 0.0 0.0 {al1} 

0-22 52695 159 93.7 0.0 6.3 0.0 0.0 {snap} 
218754 148 94.5 0.0 5.5 0.0 0.0 {all} 

0-23 52756 159 93.8 0.0 6.2 0.0 0.0 {snap} 
218812 148 94.5 0.0 5.5 0.0 0.0 {all} 

0-24 1002 3 81.9 0.0 18.1 0.0 0.0 {snap} 
3666 2 86.6 0.0 13.4 0.0 0.0 {all} 

0-25 333 1 95.1 0.0 4.9 0.0 0.0 {snap} 
3838 2 88.C 0.0 12.0 0.0 0.0 {al1} 

0-28 323 6) 95.5 0.0 4.5 0.0 0.0 {snap} 
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NETCON 
° NEW IN COO | 
~ REPLACES FEPCON 
— REPLACES PART OF FEPANLZ 
° INITIALLY USED IN $XINSTALL 
— DEFINE NODES 


- DEFINED DEFAULTS 
12-1A INT 8/85 


NETCON (CONT) 
¢ NEXT USED TO REDO IT ALL 
- TO MAKE CORRECT CONFIG FOR 
SITE 


- COULD USE $XINSTALL_LOCAL.:SYS 
* TWO PARTS OF THE WORLD 
- LOCAL FEPS (LFEPS) 


- REMOTE FEPS (RFEPS) 12-1B INT 8/85 


e MONITOR 
e LIBRARY ACCOUNT 
e HANDLERS 


BOOT INFO 


#1-> 
#2-> 


LFEP 


M:FEP 
:SYS 


NODEADMN 
COUPLER 


RFE 


M:FEP 
SYS 


NODEADMN 
HDLCX25 


12-2 INT 8/85 


BOOT PARAMETERS 
* DEFAULTS CAN BE USED (MOSTLY) 
© EXCEPTION IF TP OR FPRGS 
° EXCEPTION: NSHUF 


12-3 INT 8/85 


HANDLER PARAMETERS 
¢ SELECT H=HANDLER COMMAND 
© COMMON PARAMETER NAMES 


- MEM 
- |OMEM 


e SPECIAL PARAMETERS PER HANDLER 


12-4 INT 8/85 


HANDLER DEFAULTS 
© DEFAULT HANDLER COMMAND 
¢ COMMON PARAMETERS NAMES 
- ENABLE, REENABLE 
e SPECIAL PARAMETERS PER HANDLER 


- BLOCK, UNBLOCK 
- BUFSIZE 


12-5 INT 8/85 


CONFIG COMMANDS 
* USED ON SPECIFIC LINES 
* USED TO SUPPLY AUTO LOGON 


e USED TO SET SPECIAL PARAMETER 
VALUES 


12-6 INT 8/85 


NETWORKING (RFEPS) 
¢ MULTIPLE PROCESSORS — 
- NETCON 


- SUPER 
- PIGETTE 


12-7A INT 8/85 


NETWORKING (RFEPS) (CONT) 
XEQ FILES | 


STARTING POINT 

EDIT GLOBALS AND NETCON 
XEQ SUPER AND NETCON 
REBOOT LOCAL 

MAKE DISKETTE 

PUT DISKETTE IN RFEP 
BOOT RFEP MANUALLY 


12-7B INT 8/85 


13:09 AUG 22 


OeNA WU FUR = 
(] 


10 - 


"65 SXINSTALL.:SYS 


7.006 

1.5950 

2.000 

3.090 

4.000 

5.009 

6.000 

7.000 

§.000 

9.000 
16.096 
11.000 
12.909 
13.069 
14.009 
15.000 
16.000 
17.0900 
12.9090 
139.060 
29.909 
21.000 
22.2096 
22.000 
24.960 
25.0902 
26.090 
27.900 
28.000 
29.000 
39.000 
31.000 
32.009 
33.990 
34,9000 
25.905 
76.000 


!éc 


HO 


IV VQEPORT STEPSFULL 


!M DINGO ghost starting using 
PSST M3LL ME 
SXINSTALL.~:SYS (COO version) 


gw 
fo 
i 
." 
in 
i" 
fe 
ie 
ie 
0 
fc 
ie 
i 
ae 
i" 
" 
i" 
I" 
LIF 
IIe 
Ire 
Lit 
re 
iF 
Ie 
LIF 
HIE 
LIF 


ig 
nat 
i 
a 


File: 


1XEQ SXINSTALL.:SYS 


This file is XEQ’°d by the system DINGO ghost after tape hoots 
with the comnands 
SXINSTALL.:SYS BOOTFLAG=nn © 


!xee 


where nn= 


a2 
03 
a4 
os 
a6 
07 
ag 
99 
19 
11 


for 
for 
for 
for 
for 
for 
for 
for 
for 
for 


tane 
tape 
tape 
tape 
tape 
disk 
disk 
reso 
reco 
eper 


POOTFLAG=11 
FOOTFLAG=10 
ZOOTFLAS=9 
SOOTFELAG=3 
SOSTTLAGE7 
AONTFLAS=4 T 
SOOTFLAG=5 T 
POSTFLAG=4 T 
BQOTFLAG=3 T 
EQOOTELAS=2 T 
$PRIV OtLL 


THIS PART SETS EXECUTED ON 


boots 
boots 
boots, 
boots 
boot, 
boot 
boot 
very 


to 
to 
to 
to 
to 


ZnZn< 


(with 


new 
new. 
now 
naw 
new 


file 
file 
file 
file 
file 


system 
system 
system 


system (with reconstruct) 
system (with reconstruct) 


reconstruct) 


very Clost dumpfile(?)) 
ator racovery (from taps) 


THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
4EN M 
4EN 
HEN M 
4EN M 
HEN 


DINGO 
DINGO 
OINGO 
DINGO 
DINGO 
DINGO 
BINGO 
DINGO 
DINGO 
DINGO 


is 
is 
is 
is 
is 
is 
is 
is 
is 
is 


running after 
running after 
running after 
running after 
running after 
running after 
running after 
running after 
running after 
running after 


90D DY 


»syuovy 


tape-initiated OR 
recovery (CDUMPF) 


recovery 


12HO-1 


disk boots reconstruct 


disk boot 
TAPE boots 
TAPE hoot, 
TAPE boots 
TAPE boots 
TAPE boots 


EVERY SYSTEM STARTUP 


<n2u2a 


to 
to 
to 
to 
to 


new 
new 
new 
new 
new 


KK RT I TK KKK KK KK KK KK KK KKK REKKKEIKKKKKEKEKKKKEK KK KK 


files, reconstruct 
files,s reconstruct 
files 
files 
files 


37.900 
32.000 
39.000 
40.000 
41,090 
42.990 
43.009 
44.000 
45.600 
46.906 
47,009 
48.900 
449.900 
5G.900 
31.000 
32.0990 
53.905 
54.090 
55.006 
56.0090 
57.999 
52.905 
59.000 
0.006 
¢1.900 
62.000 
03.900 
64.990 
55.093 
66.060 
57.000 
68.000 
09.900 
70.600 
71.000 
72.099 
73.005 
74.900 
735.000 


!" NOTE THAT PACKSETS OTHER THAN #SYS MAY NOT 8£& UP AT THE TIME 12HO-2 
$1" THIS ITS RUN» SO YOU SHOULDN‘’T O&PEND ON BEING ABLE TO GET TO 
!" FILES OTHER THAN THOSE ON #SYS! 
LO ae te ae te dk ee KR RE KARE KKK ER EKER EKREKKEKKKKRKKKKKKKKKKKKKKKK KEK 
ee 
YPCL , 
MOD TPLCNTRL_O.SSYS TO CACS+((CTPA2-TPCP?) -WNEW,/READ-UPD)) 
"Andrew and JelLss this is for you. Loves JJ 
MOD 2JO3STATS.:SYSC(SH) TO CACCCC2SYS)-READ-DELR-WNEW/UPD-DELE-REATTR) «3 
ACC#(07) EXEC) -2 
ACS+CCIBEX) -READ/-WNEW,SUPD) »7 
ACS*+(CCALX) -READ) »7 
ACS+C(CSYMBO)-/READ) +7 
ACS+CCPEEK X) READ) »3 
ACS+CCB8ASS)-READ) »7 
ACS+CCFILER.X) -READ) o¢ 
ACS+CCMOM.X) READ) »3 
ACS+CCMGM) ,READ) 7 
ACS+CC TERM), READ) 47 
ACSt+(CCWOODPECKER) -READ) »7 
ACS+#(CR8Q.X)-READ)) 
IND 
fe 
!" Soacial step: lets you create a file in :SYS that gets XEQd 
!" whenever this job does. For example, on the LAODC L668 machines, 
!" since that machine has 3270%s configured, the file SXINSTALL_LOCAL 
!" contains a line like: 
gre 
!" 1C sSHARED_LEPS_RELEASE.SSYS OVER sSHARED_LCPE_SYSTEM.:SYS 
ene 
!" that the LADC L66A doesn’t need. 
owe 
!" note that when this file runs, there is no guarantee that packsets 
!" other than OP#SYS are mounted, so don’t expect anything extra-fancy 
to work here. Alsor you may find that changing user-maximums and 
!" other CONTROLlable values may not work as you think they might. 
gee 
!" This joo is primarily to guarantee that a system comes up right! 
!" It parforns LADC-defined specific tasks, that are mostly support 


76.0090 
77.006 
78.900 
79.900 
80.090 
31.900 
82.006 
53.000 
34.000 
§5.000 
26.000 
37.056 
38.9900 
89.900 
99.000 
91.2906 
92.000 
¥3.000 
94,009 
95.9009 
96.500 
97.3909 
92.609 
99.000 
190.0090 
101.909 
102.9090 
193.003 
194.060 
195.000 
106.000 
197.000 
192,006 
109.900 
116.900 
111.000 
112.0902 
112.996 
114.900 


!" oriented. If this job or SXINSTALL_LOCAL can be adapted to do what 12HO-3 
!" you want, that’s cqreat. If not: Sorry, Charlie. 

qe 

PIF PEIOLEXISTC°SXINSTALL_LOCAL.:SYS°) THEN XEQ SXINSTALL_LOCAL.:SYS THISBOOT=BOOTFLAG 
'LF EOOTFELAS>5 THEN S50TO =ND_OF_TAPE_B00T 

qu 

un ti KK RK ke tt eK I IK KK KKK KKK HK KIEREKKKKREEKKKKAKK KEK 

1" The stuff in this section only gets EXECUTED after a tape hoot 

” KKK KKK KKK KKK KKK KHKEKKKKEKEKEKEKKKKEKRKKKKKKKKKKKKKKKKKKKKKKE 
!TAPE_R00T_ONLY: 

qn 

!" This section copies the system authorization files over themselves 

!" so they get their unper_level key granules rebuilt and data space 

!" recovered. You may not notice it, but average logon time drops 

1" dramatically if the authorization files aren’t fragmented. Also, 

1" the COO suUSERS records are fixed sizer, so changing a password or 

1" profile allows the record to be rewritten IN PLACE, also getting 

!" rid of a primary source of fragmentation. 

tre 

1fF SFIOLEXISTC’sRATES.2SYS%) THEN CA :RATES.:SYS OVER .2SYS 

{IF FEID_LEXISTC’sPRO.:SYS°) THEN CA :PROW2SYS OVER w:SYS 

!IF ©FIT_LEXISTC’sWSNLESYS%) THEN CA sWSN.SSYS OVER .2:SYS 

Y1= SFIDLEXISTC’sOSYMB8.:SYS’) THEN CA :OSYMB.:SYS OVER .:SYS 

{IF SFIDLEXISTC’sNETCON.:SYS%) THEN CA sNETCON.:SYS OVER .:SYS 

{IF SFIDLEXISTC’:sF®ORM.:SYS*) THEN CA :FORM.:SYS OVER .:SYS 

ITF SFICLEXISTC’sHLP.sSY¥S”’) THEN CA sHLP.:SYS OVER .«:SYS 

$IF SFIDLEXISTC’sUSERS.:SY¥S°) THEN CA sUSERS.:SYS OVER w:SYS 

{IF FIO LEXISTC’sNAME.SSMAIL’) THEN CA sNAME.SMAIL OVER 22 MAIL 

!IF tFID_LEXISTC’sMAIL_CENTRAL SS MAIL’) THEN CA sMAIL_CENTRAL.EMAIL OVER .sMAIL 
PIF SELINLEKXISTC%ssOaTCH.:sSY¥S%) THEN CA =s:PATCH.:SYS OVER w:SYSCLNZC) 

{IF SFIOLEXISTC’s:2UM.:SYS°) THEN CA ::RUM.:SYS OVER .sSYSCLNZC) 

PLET PATCHFILE=":PF°||SVERSION[ | %.:sSYSTAC’ 

{IF SFIDO_LEXISTC’ PLOVER. :sSYS’)=0 THEN GOTO SKIP_PLOVERING 

!" Ramove QUTOUT INTOs ECHO, KILL RUMs and ALIB RET from :PLOVER,. 

$C sPLOVERLSSYSC3-4CSFID_VECSC%SPLOVER.:SYS°) - 2)) OVER ssPLOVER.:SYSC(LNZC) 
{IF STEPCC=9 THEN DEL sPLOVER.: SYS 

PLOVER -M= OVER -xePLOVEPRFILE 

READ s:PLOVER.:SY$ 

END 


116 - 115.000 FEF SFIDLEXISTC*%PATCHFILE’) THEN C %PATCHFILE,-*PLOVERFILE OVER %PATCHFILECLN-C) 12HO—4 
117 - 116.909 !GOTO PLOVER_OR_NOT 

118 - 117.900 !SKIP_LPLOVERING: IF SFID_LEXISTC°%PATCHFILE’) THEN CA XPATCHFILE OVER .wsSYSTACCLN,C) 
119 = 148.900 !PLOVER_OR_NOT: LET DELETE PATCHFILE 

120 - 119.006 !4 Dingo says: this boot/dumpfile revision is %$VERSION 
121° 129.900 !:" : 

122 - 121.009 !" Suild sone default stuff on Y to new file system boot 
123 - 122.000 !" and/or we’ve lost s:NETCON 

124 - 123.6900 !" 

2S. = 124.000 !IF SFIDLEXISTC’sNETCON.:SYS°) THEN GOTO SKIP_NETCON_STEP 
126 - 128.0090 !NETCON i 

127 - 126.000 SEF NODE=C,NAME=HOST,-TYPE=ME 

1283 - 127.090 DEF NCDE=1,TYPE=FEP 

129 - 1Z2&.000 DEF NODJE=2,TYPESFEP 

130 - 129.000 DEF NODE=3,/TYPE=FED 

131 - 130.990 Def NODE=4,TYPE=FEP 

132 - 131.900 OFF NODE=S,TYPESFE0 

133 - 132.006 DEF NODE=45,TYPE=EED 

134 - 133.9002 DEF NODE=7-,TYPE=FED 

135 - 134.090 JEF NODE=8,TYPE=FEP 

136 - 135.009 NODE=9,TYPE=FEP 

S72 = 136.000 NODE=10,TYCE=FEP 

133 - 137.000 NOOE=11,TYPE=FEP 

136 - 138.000 NODE=S12,TYOE=FEOP 

149 - 136.000 NODE=13,-TYPE=FEP 

141 = 140.000 NODE=14,/TYDE=FEP 

142 - 141.90C NCDE=15,/TYPESFED 

143 - 142.0909 NODE=1T4,/TYPESFEP 


AwyNAONONODO NUN NVUVVGVVUYIVIOYW 
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144 - 143.000 N=1 

145 - 144.000 AULT ASYNC PRO=“ODFLPRE*S 
146 - 145.006 N=2 

147 =- 146.006 AULT ASYNC PRO=°DFELPRF’ 
143 - 147.000 N=3 

149 - 142.9000 AULT ASYNC PRO=*DFLPRE’ 
150 - 144.000 N=G 

151 - 150.000 AULT ASYNC PRO="DFLORE’ 
152 - 151.900 N=5 

153 - 152.000 AULT ASYNC PRO=’DFLPRE’ - 
154 - 153.990 N=E 


154.005 
155.900 
156.000 
157.989 
2.909 
159.090 
160.000 
101.0006 
162.009 
103.000 
164.690 
165.004 
166.909 
167.000 
168.909 
169.006 
179.909 
171.909 
172.0060 
173.900 
174.009 
175.900 
176.900 
177. oe 
1738.09 
174.909 
180.509 
131.9000 
162.000 
133.000 
184.000 
125.000 
136.000 
137.0900 
13&.900 
169.000 
499.906 
191.000 
192.900 


CEFAULT ASYNC 
StL N=7 

DEFAULT ASYNC 
SEFAULT ASYNC 


AULT ASYNC 


mr mane 
SE CS a ae, 


vu 
wn 


on aSYNC 
=11 

ae 8SYNC 

N=12 

AULT ASYNC 

N=13 

AULT ASYNC 

N=14 

AULT ASYNC 

N=15 

ee ASYNC 
=16 


—-MONnNINODMDINOUONYVMNONDWE 


wa 2mm Mm me Men mn moo mt 


CREATE PROFILE 


"NULL" 


PRO="DFLPRFE? 
DRO="DELPRE® 
ORO=’DELORF’ 
PRO="DFLPQF” 
PRO="DFLPRE” 
PRO="OFLPRE’ 
PRO="DFLPRF* 
PRO="CFLPRE® 
PRO="°DFELPRF* 
PRO="DFLPRF® 


PRO="°DFLPRF” 


M PRO BELHC FROM SASYNC 


TABSTMAYES, TABRELATIVE=YES? 
FULLIUXPAPERTAPE=N0; 
HEIGHT=0- PROG 


NOOPTMIZ=N9 
DEVICE2S=YES; 


SEVICECR=YES; 


DEVPCSOPTS=NOF 
SCROLL=NO? 


RETYPOVR=N0, 
PRINTHALT=NO? 


TMNALG_DRM1=0; 


EXITOVREVESs 


RELPAGSEND; 


TMNALG_PRM2=0; 


"default hardcopy" 
SPACZINSERTHYES? DISPINPUT=YES 
HALFOUXPAPERTAPE=NO;, LOWERCASE=NO 


DTAB=NOz- LIMBOCLM=YES 


BLANKERASES=NO- 
CHARSETNESME=A8SCH4, LNPUT=YES? 
SENDSKSPRCESNO0; 


LOWERCASEPRINTS=NO 


APLLCONRM=YES; 
AUTONL=NOz, 
PRINTTYPE=YES; 


ACTONTRNENOS 
DEVICELF=YES; 
APL=NO7 BIN=NOSZ 
PAGEHALT=NO 

DEVSCROLL=NOS 
TMNALG_PRM7=03 


CRISNL=NO; 
TTYTYPE=YES 


CURSORUP=NO; 
TMNALG_AFTCR=9} 


TRUCVRPRT=YES 
TMNALG_AFTLE=03 


12HO-5 


ERSTIM=0 


M=3 


143,000 
196.096 
175.090 
19¢.0C9 
197.000 
192.000 
199.000 
200.000 
201.000 
252.090 
202.069 
204.090 
205.005 
206.000 
207.009 
204.999 
269.009 
219.906 
211.006 
212.009 
213.006 


214.999 
215.005 
216.000 
217.000 
212.000 
219.9006 
229.990 
221.900 
222.900 
223.0006 
224.006 
225.000 
226.600 
227.000 
228.000 
229.900 
230.9006 


"NULL" 12HO-6 
M PRO DFLCRT FROM SASYNC "default CRT" 
TABSIM=YESZ TABRELATIVESYESS SPACEINSERT=YES3 DISPINPUT=YES 


FULLOUXOAPERTAPE=NN7 HALFOUXPAPERTAPE=NOs LOWERCASE=NO 

HETGHT=C; PROGDTAB=NO- LIMBOCLM=YES 

NOCPTMIZ=NO é 

DEVICERS=YES7 SLANKERASES=YES; LOWERCASEPRINTS=NO 

CHARSETNAME=ASC54z, INPUT=YES? OUTPUTHYES 

SENDEKSPACE=NCZ ACTONTRN=NOs APLLONRM=YESs OPOTAB=NO 

SEVICECR=YES, OCEVICELFH=YES, AUTONL=NOs CRISNL=NOs LFISNL=NO 

GEVPOSOPTS=NOs APL=NO?7 SIN=NOZ PRINTTYPE=VESs TTYTYPE=YES 

RETYPOVR=ENOse EDITOVR=NO-s SCROLL=YESs PAGEHALT=NO 

PRINTHALT=YESs RELPAGZE=YES? DEVSCROLL=YES- CURSORUP=N0- TRUOVRPRT=NO 

TMNALG_PRM1=0; TMNALG_PRM2=07 TMNALG_PRM7=07 TMNALG_AFTCR=0s TMNALG_AFTLF=07 ERSTIM=0 
"NULL" 

M PRO TTY FROM DFLHC "Vary basic and slow" 

JEVICERS=N0- ENITOVR=NO 

AWIOTH=727 PWIODTH=727 HEIGHT=0 

CHARSETNAME=H8SCS4, LOWERCASEPRINTS=NO 

DEVICECR=YESs DEVICELFHYES+ AUTONL=NO; CRISNL=NO- LFISNL=NO 


TMNALG_ORM1=2.5¢4 TMNALG_PRM2=166.77 TMNALG_PRM7=66.77 TMNALG_AFTCR=15 TMNALG_AFTLFH=27 ERSTI 


"NULL" 
M PRO DFLPRF FROM TTY "Qefault profile (before logon)" 
ECNTSL=CPS5 
"NULL" 
ENG 
{CC ME OVER SXPIGALL.:SYSC(LN) 
HICTFAULT PACKSET=ESYS 
Hlers 
CR DOXPACKSET. SUDOPORT 3R=5009 
CR DP#P4CKSET.X GR=10000,EXEC=? 
CR OPFPACKSET.L XSI G2=15990 
CR SOSPACKSETL LIBRARY GR=SONG,READ=? 
CR OOFOACKSETLOEMO GR=S5OCI,-READN=? 
CR DPFPACKSET.SDEMOST G2R=10000,READ=? 
CR DO#PACKSET. sCONVEST GR=50900 
CR D>2P4CKSET.L:QUAC GR=5090 
CR DPXPACKSET.LSCIOPRC GR=5009 


232 
233 
234 
235 
236 
237 
238 
239 
240 
241 


oe 
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231.006 
232.6000 
233.900 
234.000 
235.900 
236.000 
237.000 
233.000 
239.009 
240.0900 


CR OPFPACKSET.:SRB GR=2500,READ=2 
CR DPHPACKSET.:00CUM GR=69000-READ=? 
CR DPXYPACKSET.SFED GR=3000 

CP OPHYPACKSET.NULLACCT GR21,REA0=? 
DISM DP#PACKSET 

ENC 

!YRELEASE DPHYPACKSET 
!SKIP_NETCON_STEP: 
1END_OF_TAPS_300T: 

1M DINGO exiting, stepce = %*STEPCC 


12HO-7 


13:04 AUG 22 °85 :NETCON_4,7226L53 4K 12HO-8 

4 - 1.090 !NETCON 

2- 2.006 DEL NODZ=0 
z- 3.0006 DEL NODE=1 
4 - 4.009 SEL NODES 
5 - 5.000 DEL NODE=3 
6 - 6.000 DEL NODE=4 
? - 7.909 DEL NODE= 
a- 3.006 DEL NONE= 
9 - 9.909 DEL NODE=7 


10 - 10.000 DEL NODE=8 
TA 11.000 SEL NODE=9 
Lee: 12.000 
Lope 13.000 
14"= 14.990 
ib: ee 15.006 
16 - 16.000 
Fee es 17.0900 
18 - 18.090 


VP = 19.905 

20 2= 20.090 NODE=18 
21 - 21.990 NODES19 
22 = 22.906 NODE=29 
23..= 23.000 E 

24 - 24.900 NODE=22 
2525 25.900 NOCE=32 
26. 26.090 


ev = 27.000 
22 = 23.000 
29 = 29.000 
30 = 39.000 
SA c= 31.009 
SO se 32.090 
SoS 33.9909 
34 - 34.9090 


NOCE=O-NA4MZ=LE6O0A,/TYPE=ME 
NODE=1/NAME=LOI-TYPE=FEP-CONTROL=L466A 
NODE=2,/NAME=LO6II-TYPE=DEBUG-CONTROL=L668 
NODE=3-NAM=Z=LEIII-TYPE=DEIUG/-CONTROL=L658 
NODE=4,NAME=L6IV-TYPE=FEP,CONTROL=LS66A 
NODE=S,NAME=LOV,TYPE=DERBUG,/CONTROL=L668 
NODESS6/-NAM==LOVI-TYPE=FEP/CONTROL=L66C 
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352 = 35.000 NODE= 7/NAME= LEVIIT,-TYPE=DE8US,/CONTROL=L658 
34 - ae NODE=S,/NAMESLOVITI,TYPE=FEP-CONTROL=LO46A 
Sy a C00 NODE=9,NAME= LOIX,-TYPE=FEP,CONTROL=L668 


38.900 
39.090 
40.006 
41.900 
42.099 
463.500 
44.000 
45.0900 
46.906 
47.990 
42.900 
49.000 
50.006 
51.900 
§2.000 
33.909 
54.990 
55.000 
56.090 
57.0900 
53.900 
359.009 
00.005 
61.000 
62.900 
63.902 
54.000 
65.909C 
66.508 
67.000 
68.900 
69.000 
79.000 
71.009 
72.000 
73.9990 
74.009 
75.00% 
76.000 


DEF NODEZTO0,NAME=LOX,TYPE=DE2UG/CONTROL=L668 
OEF NODEH11-NAME=ELSXI-TYPE=FEP,CONTROL=L6468 
OEF NODE=12-NAME=LEXTII-TYPE=FES-CONTROL=L668 
DEF NODE=13,NAME=LEXITI-TYPE=DER8UG/CONTROL=L662 
DEF NODS=15-NAME=LSXV-TYPE=DESUG/CONTROL=EL66A 
DEF NOODE=2Z0,-NAME=L4669,TYPESHOST 

DEF NODE=21-NAME=LE6690- TYPE=HOST 

DEF NODE=22,N4ME=LE6C-TYPE=HOST 

DEF NODE=ZI2Z2,-NAME=DVFEP,TYPESFEP ,CONTROL=LO66A 
DEF NOQE=33-NAME=CRFEP,TYPE=FEP,-CONTROL=L56A 
NEF NODZTS34,NAME=CPEFEP,TYPE=FEP,CONTROL=L66A 
" LS&4A sNETCON - DEFAULT COMMANDS AND CONFIGS FOR FEP 4&4" 3 
SEL NODE=4 

S2T 200TINFO 

MeFEP.SSYS 

5. 

NODEASMN 

NODESOMN.: SYS 

COUPLER 

COUPLER.~:SYS 

ASYNC 

ASYNC.:SYS 

BISYNC 

3ISYNC.:SYS 

HOLCX25 

HOLCX25.:SYS 

:SYS 

DEFAULT ASYNC ¢ 


INPUT = YES, 
OUTPUT = YES 
SALUTATION = 
SPEED = AUTO, 
ENABLE = YESse 
REENABLE = YES~2; 
OSGPSTR = NOse 
HO2OWTRE = VES+e7 
ECHOLOGON = NOve 
LOSONTIMEOUT = Se; 
REAQTIMEOUT = 9,3 


12HO-9 


77.000 PROFILE="DFLPRF’ 12HO-10 
78.900 DEFAULT BISYNC 3 

79.000 INPUT = YES~,; 
50.000 OUTPUT = YES~+3 
21.069 SPEED = 240043 
32.000 REMOTE = TERMINALS; 
83.000 ENABLE = YES+3 
24.000 HARDWIRE = YES~3 
35.009 CLOCKING = NO,3 
56.00C REENABLE = YES,; 
87.900 READTIMEOUT = 0 
33.000 DEFAULT HOLCX25 } 

89.000 INPUT = YES~+; 
29.000 OUTPUT = YES~+; 
91.000 SPEED = AUTO,? 
92.090 REMOTES = HOSTy3 
93.990 ENABLE = NO-s 
94.000 HARDWIRE = YES~+3 
95.900 CLOCKING = NOs? 
46.0900 EENABLE = YES;,; 
97.590 READTIMEQUT = 0 


9¥GeM00 CONFIG 24480 HAROWIREZNO,SROPOTRAYESs»LOGONTIMEOUTHS5S/-READTIMEQUT=2 
99.000 CONFI ©4340 HAROWIRE=NO-DROPOTR=YVES-LOGONTIMEQUT=S5/READTIMEQUT=2 
190.000 CONFIG .5009 =NABLE=YES,-LOGON=" LNKTO34A% "Phoenix HLSUA RFEP 
101.00C CONFIG .510C ENABLE=YES,/LOGON="°LNKTO348” "Phoenix HLSUA RFEP 
102.906 CONFIS .5290 ENABLE=YES-LOGON="LNKTO33A% "Phoenix MEW-CRF RFEP 
103.000 CONFIGS .5390 ENABLE=YES/LOGON=°LNKT0338”% "Phoenix MEW-CRF RFEP 
104.690 CONFIGS «1080 BUF=256 "rm 284 Fosnight 
195.000 CONFIG .1899 SPEED=3ND-HARD=END,LOGON=“ALEXDEV PRO=ALEXPRO’,SAL=NO “ALEX modem 
105.500 CONFIS .1229 S$P2=20=1200,-HARD=NO-LOGON="ICOM1°%,SAL=NO 
106.009 CONFIG .2300 8UF=255 "rm 212 Anderson 
107.0090 CONFIS .18£0 SUFH1238 "JLJ RM241 I3MPC" 
197.500 SET NSHUFHIZ4 
198.090G SEL H=8ISYNC 
109.000 SET “EM=R4 
119.099 " LéS6C sNETCON - DEFAULT COMMANDS AND CONFIGS FOR FEP 6 " ¢ 
111.000 SEL NODE=6 
112.000 SIT SO0OTINFO 
113.000 MSFEP.LESYS 


114.000 
115.009 
116.0090 
117.900 
118.960 
119.006 
120.006 
121.900 
122.000 
127.906 
124.090 
125.000 
126.000 
127.900 
122.090 
12%.600 
130.9599 
131.009 
132.006 
132.000 
134.900 
135.996 
176,000 
137.906 
13&.0900 
139.900 
1460.00 
141.096 
142.900 
142.000 
144.000 
145.000 
146.000 
147.906 
142.900 
149.950 
150.000 
151.0969 
152.90) 


§ 

NOOZAIMN 

NODEADMN.: SYS 

COUPLER 

COUPLE&.:SYS 

ASYNC ; 

ASYNC.:SYS 

RBISYNC 

SISYNC SYS 

HOLCX25 

ACLOX25.:SYS 

7SYS 

OSFAULT ASYNC -¢ 
INPUT = YES~s- 
OUTOUT = YES-; 
SALUTATION = YESs3 
SPEED = AUTOs; 
ENABLE = YES~;7 
REENASLE = YES,; 
DROOJTR = NOves 
HAROWIRE = YES+? 
ECHOLOGON = NOs; 
LOGONTIMEQUT = Ss3 
READTIMEOUT = O,¢ 
PROFILE="DFLPRFE”% 

DEFAULT 8ISYNC 37 
INPUT = Y 
OUTPUT = 
SPEE5 = 2 
REMOTE = 
ENSSLE = 
HAQ20W IRE 
CLOCKING 
REENARLE 
R=ADTIMEOUT 

DEFAULT KDLCX25 7; 
INPUT = YES,3 
QUTSYT = YESe; 
S8FED = AUTN+, 


mMmaaQuaw 


<2<mnNvnOoONWr 
homomn BV nv veo 


uonth~< ae <n 
WN WN Se 4 Ne Ne 


12HO-11 


153.000 
154.090 
15§.006 
156.003 

57.000 
158.000 
159.000 
160.099 
101.000 
162.050 
163.0900 
164.909 
165.000 
166.960 
147.900 
102.9000 
169.000 
170.005 
171.90C 
172.000 
173.900 
174.000 
175.9090 
176.9009 
177.006 
178.000 
174.006 
120.900 
131.0909 
132.900 
133.990 
1&4.006 
145.000 
166.090 
137.000 
154.009 
18%.006 
196.900 
191.000 


REMOTE 
ENASLE 
HAROWIRE 
CLOCKING NOs 
REENABLE YES, 
READTIMEOUT = 0 

CONFIS «4909 REMOTE=HOST-LOGON=“L66A" 


HOSTs3 
NOs? 
YESe; 


"Loe8 sNETCON = DEFAULT COMMANDS AND CONFIGS 

SEL NODE=5 

SET SOOTINFO 

MSFEP.:SYS 

5 

NODEAIMN 

NODEADMN.:SYS 

CCUPLER 

COUPLER.:SYS 

ASYNC 

ASYNC.:SYS 

SISYNC 

BISYNC.:SYS 

hOLCX25 

HDLCX25.:SYS 

sSYS 

DEFAULT ASYNC 3 
INPUT = YES«se 
OUTPUT = YESs; 
SALUTATION = YES-+- 
SOZED = AUTO-; 
ENASLE = YESs; 
HAROWIRE = YESs-e 
REENASLE = YES~e; 
DROCDTR = NOvs 
ECHOLOGON = NOse 
LOGONTIMEQUT = 5-7 
READTIMEOQUT = Ove 
PROFILI=°3FLPRF®” 

DEFAULT SISYNC ¢ 
INPUT = YES~e-, 
OUTPUT = YES+; 


FOR Fep 8" 


e 
’ 


12HO-12 


20 


T=0 
221 


READTIM 


222 
223 
224 
228 


2.099 
193.000 
194.005 
195.900 
196.069 
197.0006 
198.000 
199.000 
209.000 
291.090 
202.009 
202.000 
204.000 
295.0006 
206.000 
297.000 
208.960 
209.9096 
210.009 
211.990 
212.099 
213.999 
214.990 
215.000 
216.090 
217.0006 


212.9000 


219.006 


SPEED = 2460073 12HO-13 

REMOTE = TERMINALS? 

ENABLE = YES~+3 

HARDWIRE 

CLOCKING 

REENAALE 

READTIMEOUT = 9 
DEFAULT HOLEX25 3 

INPUT = YES+3 

OUTPUT = YES,3 

SPEED = AUTO>; 

REMOTE = HOSTS; 

ENABLE = NOvs 


1 
z 
io) 
. 
. 


HAROWIRE = YESs; 
CLOCKING = NOve 
REENABLE = YES-ve 
REAITIMEOUT = 0 

CONFIG .OCCO BUF=256 "rm 2105 Sickler 

CONFIG 2.1209 BUF=256 "rm 252 Catozzi 

CONFIG .19380 B8UF=256 "em 2110 Hotfield 

CONFIG .238280 LOGON="DE8UG12"% -HARD=NOsSAL=NO,r SPEED=9600,DROP=YES,/BUF=128,ENABLE=NO 

CONFIG 2.2990 3UF=256 “em 219 Towe 

CONFIG .2C00 BUF=256 "rm 213 Heying 

CONFIG .2F90 LOGON="°DE3UG9’-HARD=NO+SAL=NOs-SPEED=9600,DROP=YES -SUF=1 28,ENASLE=NO 

CONFIGS .2°80 LOGON="DE8UG3°,-HARD=N0-SAL=NOz-SPEED=9600,DROP=YES,8UF=1 28 

CONFSIS 12400 SPEED=1200,HARD=YES,SAL=NO-LOGON="namesacctspass’ sPROFILE="% 11855°,LOGONTIMEOUT 


"CONFIG 2.3500 S9EED=1200-HARD=YES/SAL=NO-LOGON="nameracct-pass’sPROFILE="TI855“sLOGONTIMEOU 


CONFIG 23500 SPEED=94600-HARO=YES,/REENABLE=YES-LOGON=“nameracctspass ~»SAL=NO,/LOGONTIMEOUT=0, 


EOCUT=0,PROFILE="OMS1290"-FLOWCHYES 


aoe erat 


227 
228 
229 


214.500 
220.900 
221.006 
221.2500 
222.900 
223.009 
224.099 
225.000 


CONFIGS 14429 LOSON=°LS568’ 
CONFIS .43900 LOSON=*°LADC3270°%-S SFED=9500 "Upstairs M00400 filetran Beaumont 
CONFIG .4C00 ENABLE=YES,/LOGON=°LNKTO32% "Shoenix OVCP RFEP 
SET NSHUF=%24 
SEL H=8ISYNC 
SET MEM=S4 
S64 rNETCON - DEFAULT COMMANDS AND CONFIGS FOR FEP 22 " ¢ 


226.009 SET B3ONTINED 

227.000 M:FEP.:SYS 

222.009 4 

229.900 NODEAQMN 

236.9900 NODEADMN.:SYS 

231.9000 HOLCX2S 

232.599 HOLCK25.:SYS 

33.9090 ASYNC 

234.900 ASYNC.:SYS 

235.000 UNITRE 

236.0906 UNITPEC.:SYS 

237.000 :SYS 

238.0900 OFF LINK .F900,.F100 

234.009 DEFAULT ASYNC 3 

240.090 INPUT = YES~e 

241.005 OUTPUT = YES-; 

242.9006 S&LUTATION = YES~»> 

247.000 SPEED = AUTOs; 

244.000 ENASLE = YES,;3 

245.900 REENABLE = YES~-; 

See DROPDTR = NOvs 
72996 HAROWIRE = YES~; 

2451900 ECHOLOGON = NOoewe 

249.00 LOGONTIMEOUT = See 

ate READTIMEOUT = 9-7 

251.900 PROFILE="DFLPRFE” 

252.000 DEFAULT BISYNC -¢ 

253.090 INOUT = YVES~s> 

254.006 OUTPUT = YESs; 

255.000 SPEEDO = 24007; 

256.0900 REMOTE = TERMINALS? 

257.000 ENABLE = YESs; 

252.000 HARDOWIRE = YVES+2 

259.0909 CLOCKING = NOs; 

299,000 REENA32LE = YES-s; 

261.9009 REASTIMEOUT = 0 

262.0900 CEFAULT HOLCX25 7 

292.006 INPUT = YES~; 

25$46.090 OUTPUT = YES 


12HO-14 


265.900 
206.000 
267.009 
268.990 
269.090 
270.000 
- 271.000 
272.000 
273.900 
274,000 
275.900 
276.000 
277.000 
278.900 
274.000 
230.5900 
261.000 
282.900 
233.009 
234.999 
235.000 
286.600 
237.060 
288.999 
224.000 
290.096 
291.900 
242.006 
293.900 
294.000 
245.000 
296.000 
297.006 
293.5900 
299.000 
290.000 
391.9005 
392.906 
303.90C 


SPEED = 
REMOTE 
ENABLE 
HARIWIRE 
CLOCKING 
REENABLE 


to 


READTIMECUT 
20580 LOGON="’namevacctspass’” 
29680 LOGON="’namevacctspass’ 
20790 LOGON=’rameracctspass’” 
oF000 LOGON="LINK32°,ENABLE=YES/REENABLE=YES 
©=100 LOGON=°LINK32°,/ENASLE=YES,/REENASLERYVES 
sNETCON = DEFAULT COMMANDS AND CONFIGS FOR FEP 33 " 


CONFIS 
CONFIS 
CONFIS 
CONFIS 
CONFIG 
" L664 
SEL N=33 

SET POOTINFO 
MSFEP.SSYS 

4 

NODEADMN 


AUTOs;3 


YES 
= 0 


NOCEAOMN.S SYS 

HOLCX25 

HOLCX25.:SYS 

ASYNC 

ASYNC.:SYS 

UNITREC 

UNITREC.:SYS 

:SY¥s 

DEF LINK .9090,.9209 

DEFAULT ASYNC 7; 
INPUT = YES~-z 
OUTPUT = YES~Z3 
SALUTATION = YESse 
SPEED = AUTCss 
ENASLE = YES-e; 
REENAPLE YES--; 
OR OPDTR NQ+7 
HARDWIRE = YESee 
ECHOLOGON NOs; 
LOGONTIMEOQUT = 15-7 
READTIMEOUT = 41-7 


304.909 
305.900 
306.000 
307.090 
392.900 
309.906 
310.000 
311.900 
312.000 
313.900 
214.000 
315.00¢ 
316.000 
317.900 
218.000 
319.990 
220.900 
321.000 
322.009 
323.009 
724.900 
325.060 
32€.006 
327.000 


PROFILE= 
SEFAULT BISYNC ; 
INPUT = 
OUTPUT = 
SPEED 
REMOTE = 
ENASLE = 
HARDWIRE 
CLOCKING 
REENABLE 


“DFLPRF® 


W 


YESs+e 

YES+; 
240073 
TERMINAL +7 
ESs7 
YES,? 
NOs? 
= YES+; 


uu 


REAOTIMEOUT = O 


DEFAULT HOLCX25 ; 
INPUT = 
OUTPUT = 
S>EED = 
REMOTE = 
ENABLE = 
HARDWIRE 
CLOCKING 
REENABLE 
READTIME 

CONFIG .0580 LO3O0 

CONFIG .9880 LOSO 


YES~s- 

YES+e 
AUTOs> 

HOSTs> 

NOs; 

YESs; 

NOves 
YES+- 
ouT = 9 
N=“’namervacetspass’ 
N="namervacct,pass’ 


12HO-16 


CONFIG «6920 LOGON=’namevacctspass’ -HAROWIRE=VES+ SPEED=4809 ,READTIME=0-LOGONTIME=0 


CONFIG .?900 LOGO 


G2 CONFIS 2.9890 LOS 


"L654 sNITCON - 
EL N34 

cT SQ0TINEO 
tFEP.SS¥S 


NODESDMN 
NODZLIMN.: SYS 
HOLCEX25 
ACLCX25.:SYS 
ASYNC 


N="LINK33A° -ENABLE=YES,REENASLE=YES 
N=°LINK33B° -ENABLE=YES,REENABLE=YES 
DEFAULT COMMANDS AND CONFIGS FOR FEP 34 " 


e 
’ 


343.990 
344,000 
345.090 
346.999 
347.090 
342.009 
349.996 
350.9090 
351.900 
352.900 
353.009 
354.000 
255.090 
356.900 
357.000 
35%.009 
759.000 
360.009 
361.996 
362.060 
763.000 
364.005 
265.700 
366.09U 
367.009 
362.000 
304.906 
379,696 
371.2900 
372.000 
373.000 
374.9006 
375.000 
376.900 
377.059 
778,006 
279.0006 
330.006 
241.990 


:SY 
DSF LINK 
DEF 


AULT ASYNC > 


INPUT = 
OUTPUT = 


©2999-.8100-.9000-.9100 


YES? 


SALUTATION = YES~+- 


SPEED = 
ENABLE = 
REENA3LE 
BEQOCTR 
HAROWIRE 


ECHCLOGCN 
LOGONTIME 


AUTO,s; 


YES+; 
= YES-; 
NOvse 
= YES~+; 

= NOs; 
OUT = 15-7 


REAOTIMEOQUT = Ove 


PROFILE=*°DFLPRF’ 


DEFAULT RISYNC 


REMOTE = 
ENABLE = 
HAROWIRE 
CLOCKING 
REENAPLE 


TERMINALS; 

YESe? 

= YES+- 
NQve 
YES,; 


REAOTIMEOUT = 0 


DEFAULT HOLEX25 ; 


CONFIG 
COMFIS 
CONFIS 
CONFIGS 


INPUT = YESs?7 
OUTPUT = YESse 
SPEED = AUTO>s; 
REMOTE 
ENABLE 
HAROWTRS = YES? 
CLOCKING = NOss 
RESENABLE = YESee 
REASTIMEOUT = 9 


wou 
=x 
Lo) 
nn 
+4 
. 
s 


2030 LOGON=°LINK34A" -ENABLE=VES/REENABLE=VES 
2190 LOGON="LINK 348°, ,ENARBLE=VES,/REENABLE=YES 
SG90 LOSON="LINK34A°,ENABLE=VES/REENABLE=YES 
6109 LOSON="LINK268°,,ENABLE=YES,-REENABLEZVES 


12HO-17 


382.900 END 


marae ATE 
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6.509 
0.510 
0.829 
9.530 
9.540 
0.550 
9.560 
1.909 
22909 
3.900 
3.100 
4.060 
5.009 
6.906 
6.100 
7.900 
8.006 
2.109 
9.900 
16.000 
19.1090 
11.099 
12.900 
13.900 
13.190 
14.006 
13.900 
15.190 
16.000 
17.006 
14.990 
137.950 
230.006 
21.006 
22.906 
23,003 


23.005 
24.093 


ae 

in 

io 

'LET 
ILET 
§'SLOBAL 
1GLOEBAL 
gue 

i" 

it 

" 

ee 

'LET 
PLET 
'LET 
{GLOPAL 
1GLOSAaL 
{GLORAL 
gee 

en 

ee 

fo 

{LET 
{LET 
{LET 
'GLO2AL 
!SGLOBAL 
IGLORAL 
to 

A 

rn 

fy 

{LET 
tLeT 
!SL98aL 


PSLOFAL 


Define the host node number and name for NETCON. 


HCST_NODE 
HOST_NAME 
%C°HOST_NODE* [| °$%) 
%C°HOST_NAME’ | 1°37) 


ia 

"L668" 
““HOST_NODE’ 
"%HOST_NAME” 


Define the local FEP node number and name which the RFEP 


is connacted to. 


Define the channel(s) that isCare) 


used to connect to the remote FEP. 


FEP_CHAN 

%C°FEP_NODE| 1S") 
%C°REP_NAME’ |] °S*) 
%CCEP_CHAN |] 787) 


Define the remote FEP (RFEP) node number and name. 
the channel(s) that is(Care) used to connect to the local FEO. 


REEP_NODE 
RFEP_NAME 
RFEEP_CHAN 
XCORFEP_NODE 1173") 
%C°CEEP_NAME’|] 737) 
%CTREER_ CHAN? [| °S%) 


Ct | | 


Define the profile names 


locai and remote ends 


LOCAL_LINK 
REMOTE_LINK 
%CLOCAL_LINK“][°S") 
%~C’REMOTE_LINK’|]°3%) 


of 


1 
*“NODEQ001” 
*.F000° 
"%FEO_NODE’ 
°%EEP_NAME’ 
“%FEP CHAN’ 


Define 


34 

“CPOFEP’ 

* F000" 
"%PRFEP_NODE’ 
"%REEP NAME’ 
°%RFEP_CHAN’ 


for the link profiles at the 
the links. (11 char max.) 


“LOCALLINK?’ 
“REMOTELINK’ 
“%LOCAL_LINK’ 
“%REMOTE_LINK® 


12HO-19 


25.000 
26.009 
27.000 
23.606 
29.005 
30.996 
31.990 
32.096 
23.000 
34.000 
35.000 
36.009 
37.000 
32.0900 
39.009 
49.099 
41.908 
42.090 
43.000 
44.000 
45.90C¢ 
46.000 
47.900 
48.990 
47.006 
50.9906 
51.000 
52.C00 
53.000 
54.906 
55.000 
56.900 
57.900 
58.990 
59.900 
60.009 


pe 
ne 

A 

i" 

in 

An 

{LET 
ILET 
{GLOPAL 
{SLOBAL 
on 

ie 

ye 

ar) 

ie 

ve 

i 

ILET 
'LET 
ILET 
'uLcT 
tLeT 
{LET 
!GLOSAL 
!GLOSAL 
on 

ie 

ie 

it 

fr 

i" 

i" 

{LET 
'LeT 
'GLOSAL 
!GLOBAaL 


Define the virtual circuit names for the virtual circuits 12HO-20 
at the local and ramote ends of the links. (11 char max.) . 

Note: The remove ve are not actually generated because 

changing the remote ve would involve rewritting the 

diskette every time the remote ve was changed. 


LOCAL_VC = *LOCALVC’ 
REMOT=_VC = “REMOTEVC’ 
SC°LOCAL_VC7I[°%") = “*XLOCAL_VC’ 
%CPREMOTE_VC°T 1°37) = “%REMOTE_VC’ 


Form the names of the links from the FEP to the RFEP and 
from the RFEP to the FEP. The name is of the form 
LINKamnns where “mm’ is the two-digit node number the 
link is frome and ‘nn’ is the two-digit node number the 
link is to. 


NN = °O° |] FEP_NODE 

FEP_NODEXX = $SUBSTR ( NN, SLENCNN) <2, 2 ) 

NN = ‘0° || RFEP_NODE 

RFEP_NODEXX = $SUBSTR ( NN, SLENCNN)<2, 2 ) 
FES_25=P_LINK = ‘LINK’ [J] FEP_NODEXX |] RFEP_NODEXX 
REEP_FEP_LINK = “LINK” {| RFEPLNODEXX |] FEP_NODEXX 


“CTPREP_REEP_LINK°[[°3°) = “XFEP_RFEP_LINK? 
%C°RFEP_FEP_LINK’([|°S°) = “XRFEP_FEP_LINK’ 


Forn the X.25 address for the local and remote ends of 
the link. The address is of the form mmnniis where ‘mm’ 
is the twordigit node number the address is tos “nn’ is 
the twordigit node number the address is from, and “ii’ 
is the number of the physical link (i.e.w, O17 027 etc.) 


LOCAL_ADDRESS = FEP_NODEXX || RFEP_NODEXKX |] °01” 
REMOTE_ADODRESS = RFEP_NODEXX |] FEP_NODEXX [|] 701° 
ZCTLOCAL_ADDRESS“|]°S%) = “%LOCAL_ADDRESS” 
%C’REMOTE_ADDZESS “|| °F") = “NREMOTE_ADDRESS’ 


i eae 1.000 

o> 4.000 

Soe 72009 
4= 8.000 

§- . 9,000 
6 - 92500 
C= 7.510 

tis 10.090 
9 - 11.930 
10s 12.009 
1 12.500 
12 - 12.510 
ie eae 12.520 
14 - 12.530 
AS. 12.540 
160 > 12.550 
17 - 17.000 
Ade ss 14.990 
19 - 15.000 
COs= 15.009 
a 17.900 
22 - 13,090 
oss 19.900 
24 - 20.0090 
25 21.9900 
20 > 22.900 
i ls 23.900 
23 - 24,000 
295 25.000 
30. = 26.090 
2G Ro 27.000 
Sie. > 22.9000 
335 29.900 
S455 30.900 
35= 31.600 
360 = 72.500 
37 - 33.000 


13210 AUG 22 °85 RFEPLNITCON.ZZGLG5MK 


“SEP_NODES’ = °%C°FEP_NODE°|]°S°)" THEN XEQ RFEO_GLOBALS 
over *RFEP_NETCON 


HOST_NAMES, type 


"RFEP_ NAMES, type 


'ECHO 
!ORIGELE OVER 2FEP_NFETCON_ORIB3BLE 
tLe 
!coPy ME 
!INZTCON 
delete node = HOST_NODES 
define node = HOST_NODES, name 
deiste node = RFEP_NODES 
detineg mnoce = RFEP_NODES, name 
update 
select node = FEP_NODES 
define dlink FEP_CHANS 
config FEP_CHANS + 
enable = yess ; 
logon = “FEP_RFEP_LINK3S%, 3 
reenable = yes 
select node = RFEP_NODES 
set bootinfo 
MSFEP.2S¥S 
3 
NODESIMN 
NODEAOMN. SYS 
4CLCx25 
HOLCX25.:S8YS 
ASYNC 
ASYNC.:SYS 
:SYS 
default ASYNC 3 
breekrequired = nos 7 
bufsize = 254, ; 
dropdtr = nor ¢ 
echologon = nos 
enable = yess 3 
herdwire = yess ¢ 
input = yessr 
Llogontimeout = As - 
output = yess + 


a“ 


" 


me 


fen, control 


12HO-21 


= MOST_NAMES 


34.000 
35.000 
36.00C 
37.090 
32.000 
79.9000 
40.006 
41.009 
42.000 
43,900 
44.000 
45.009 
46.000 
47.000 
48.000 
49.908 
50.009 
31.090 
52.0095 
53.900 
53.910 
53.025 
53.639 
$7.90C 
38.009 
54.009 
60.900 
61.006 
£2.9900 


default 


select 
set 
set 
define 
config 


end 
G0 
XEQ 
DONT 


!OIR 


profile = “DFLPRF’, 


we 


readtineout = O- 3 


reenable = yess ¢ 


salutation = yess ; 
speed = auto 

HOLCX25 3 
breakrequired = nos -¢ 
clocking = nos - 
enable = yess 7 


hardwire = nos 


input = yess ; 
output = yess 2 
readtinesut = O- 3 
reenable = yess 37 
speed = auto 
hendler = ASYNC 
RCVCQEYTSIZ = 16334 
NSHUF = 6090 

link RFEP_CHANS 
REEP_CHANS ; 


enable = yess ¢ 


logon = “RFEP_FEP_LINK$%, ; 


reenable = yes 
*RFEP_NETCON 
DRIS3LE 


EL32IRO.X 


R 


RFEO_NETCON_ORIS8LE 


12HO-22 
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"25 RF 


3.900 

4,000 

5.009 

6.000 

72090 

2.900 

9.000 
19.0900 
11.900 
12.900 
13.990 
14.090 
15.990 
16.0090 
17.900 
18.000 
19.009 
29.009 
21.000 
22.000 
23.000 
24.000 
25.999 
20.00C 
27.990 
23.906 
29.000 
30.000 
21.000 
32.006 
33.000 
264,596 
55.992 
36.990 
37.090 


£P_SUPER.ZZGLG8MK 12HO-23 
feCHo 
IORIGE8LE OVER RFEP_SUPER_DRISALE 
pag “FED NODES’ = “XC"FEP_NODE’(1°S°)" THEN XEQ RFEP_GLOBALS 
!coPy ME over *RFEP_SUPER 
!rsurse 
ew 
" Profile for local end of links 
o 
remove profile LOCAL_LINKS 


create profile LOCAL_LINK$S link 

circuits = 19 

default packet size = 1024 

default response timer = 0 

cefault window = 7 

frane = 1924 

mod? = OTE 

retransmission = 19 

timeout = 3 

window = 7 

end 
ii] 
Profile for RFEP end of links 
it} 

remove profile REMOTE_LINKS 
create profile REMOTE_LINKS Link 

circuits = 10 

deteul+ packst size = 1924 

dafsult rasconse timer = 0 

default window = 7 

frame = 1024 

moca = CCE 

retrensmission = 19 

timeout = 

window = ? 

end 
wu 
i Profile for local end of virtual circuit 


38.000 " 
39.000 
40.000 
61.090 
42.090 
43.090 
44.000 
45.009 
46.000 
47.990 
48.006 
49.000 
50.000 
51.900 
52.000 
53.009 
54.099 
55.609 " 
54.900 " 
37.900 " 
52,000 
59.900 
50.990 
21.090 
62.900 
63.000 
64.000 
$6,999 
56.900 
67.0900 
88.000 
69.000 
70.090 
74.000 
72.990 
73.9009 
74,000." 
75.000 " 
76.990 " 


12HO-24 

renceve profile LOCAL_VC$ 
create profile LOCAL_VC$ virtual circuit 

dalays = 2 

naxvircir = 6 

minvircir = 1 

receive size = 1024 

receive window = 7 

respond to complete = yes 

resoonse delay = 2 

response timer = 0 
retrys = 9 

sand size = 1024 
sand window = 7 


timeout = 3% 
type = primary 
end 


Profile for remote end of virtual circuit 


remove profile REMOTE_VCS$ 

create profile REMOTE_VCS virtual circuit 
celays = 2 

maxvircir = 6 

minvircir = 1 

receive size = 1924 

receive window = 7 

respond to conplete = yes 

response cdelzy = 2 

rasponse timer = 0 

retrys = 9 
serd size = 
send window 
tineout = 3 
tyoe = secondary 
enc 


1026 
=7 


Links for local end of link to RFEP_NAMES 


77.090 
78.960 
79.009 
302.990 
31.00C 
82.909 
83.900 
84,000 
35.900 
86.906 
87.006 
33.090 
9.900 
$0.000 
91.9000 
922900 
93.900 
94.000 
95.000 
96.090 
37.096 
72,9906 
92.599 
98.510 
98.520 
98.550 
¥£.549 
99.0995 
139.090 
191.006 
102.000 
103.909 
14.000 
195.9060 
196.900 
107.900 
70%.005 
199.000 
119.9009 


remove link FEP_RFEP_LINKS 12HO-25 
create link FEP_RFEP_LINKS 

address LOCAL_ADDRESS? 

profile LOC4L_LINKS 

end 


Links for remote end of link to RFEP_NAMES 


remove link @8FEP_FEP_LINKS 
create link RFEP_=EO_ LINKS 
address = REMOTE _ADDRESSS 
profile = REMOTE _LINKS 

end 


Virtual circuits for local end of link 


renova virtual circuit 1 for link FEO_LRFEP_LINKS 
creete virtual circuit 1 for link FEP_LRFEP_LINKS 
address = REMOTE_ADDRESSS 

destination = 2FEP_NAMES 

profile = LOCAL_VCf 

end 

create virtual circuit 2 for link FEPLRFEP_LINKS 
eddress = 2EMOTE_ADDRESSS& 

destination = PFEP_NAMES$ 

profile = LOCAL_VCS 

ane 


Virtual circuits for remote end of link 


remove virtual circuit 1 for link RFEP_FEP_LINKS 
create virtual circuit 1 for link RFEP_FEP_LINKS 
address = LOCAL_ADNORESSE 
destination = FEP_NAMES 
profile = REMOTE_VCS 
end 
and 
03 
Xie *REED SUOER 


5 2 5 >) 


116 = 111.000 100NT oP BBLE 12HO-26 
117 - 112.000 !ELabIkO.X RFED_SUPER_ORISBLE 
148 = 143,090 19ER 2 


13:10 AUG 22 °35 DISKETTE _3ATCH.ZZGLG3MK 


12HO-27 


1 2.960 !LET ECHO SFLAG € ECHO ) 

2 2.900 !D0NT ECHO 

3 4.500 !WHAT.X Pa 

4 é.000 !FEP; 

s 9.900 !LET FEP = SINPUT (€ “Which FEP is diskette to be built ON COVFEP|[CFEPICP6FEP): ad 
6 10.000 !IF Fep = °?% . END 

ie 11.000 !1re FEP = FEP_END 
2 12.990 !15 FEP = FEP_END 
¥ 13.0900 !fF FEp “= FEP 

16 14,009 !FEP_LEND: 
11 16.000 !RFEP: 

12 17.0900 !LET RFEP = SINPUT € “Which RFEP is diskette to be built FOR (CDVFEP[CRFEP|CP6FEP): 
13 18.000 !1F RFEP = °°" THEN GOTO END 

14 19.000 !IF RtEP = THEN GOTO RSFEP_END 
15 20.900 !1IF RFEP = THEN GOTO RFEP_END 
16 21.900 !IF RPFEp ~ THEN GOTO RFEP 

17 22.000 !RFEP_LEND: 

18 45.000 !DRIVE1: 
19 45.900 !0UTPUT “Sut the new disketta for %REEP in drive 1.” 

25 47.900 !LET ANS “Enter GO when diskette installed: 
21 48.0009 !IF ANS THEN GOTO DRIVE1 
22 49.900 !ORIVE1_END: 
23 $0.000 !3ATCH: 
24 531.300 !LEéT NAME “ _LOISKETTE’ 
z5 52.000 !SATCH J:RFE “1)"s* “YNAME*, 
26 - 53.005 ! 4C° FER" ((°S°) = °XFERDS, | 
27 - 54.095 ! “4C°REEPT TIS") = °XRFEP’ 
23 - 65.909 !END: 
Cas tae: 67.0090 !IF ZCHO = “YES” THEN ECHO 


13:10 AUG 22 °85 JrRFEP_DISKETT®.Z272GLGBMK 12HO0-28 

A 1.000 !JEFAULT NAMES=RFEP_OISKETTE 

sited 2.099 !DEFAULT wWSNS=DVOSTG2, DEFERS=0:00, SCHEDS=RERUN 
SS 3.909 !OEFAULT TIMES=1:00, MEMS=64, FPOOLSS=31 

4 - 4.909 !uGB NAMS=ENAMES, WSNEWSNE, DEFER=(DEFERS), SCHEDS 
So 5.005 !RES TIME=TIMES, MEM=MEMS 

6.- 66000 !LIMIT FPOOLS=FPOOLS$ 

7° 7.900 !M Job to build RFEP diskette for RFEPS. 

eo 3.990 Im Diskette will be built on drive 1 of FEPS. 
9 12.009 !PIGETTe : 

10 - 14.993 use fep FEPS 

11- 15.000 time 

12 - 16.990 ‘suild RFEPS on fep FEPS drive 1 

13° 17.000 tims 

14°<= 12.00G list fep FEPS drive 1 

1Sie 19,009 endl 

6. = 29.990 !copy ne over *mass 

17. - 21.900 TO:Me 

13 - 22.009 SUBYECTINAMES completed 

19 - 23.000 FCOPY:NO 

20 - 24.900 RRINS 

24> 28.000 !700 


2-7 26.900 !SEN3 amass 


LAB OVERVIEW 


Lab formats generally take the form of: 


Scenario 
— where scenario is as real-to-—life as we can 
make it 


Discussion/hints 
— where we are as obscure as possible 


Problem 
- where we really let you have it 


LAB 1 
ASSIGNMENT 


LAB #1 [SUPER] 


SCENARIO: 
- You have been asked to make a special line 
printer form for a room full of schmucks. 
The schmucks are divided into groups of two, : 
known as schmucklets. Each schmucklet has a 
different logon account and would like their 
output to come out uniquely identified. 


What the heck can you do? 


LAB #1 [SUPER] 
DISCUSSION: 


- You don't want to have to change the forms man 
every few minutes. (Hint: What's a pseudo form?] 


- You'd like to be able to use the same form for 
all schmucklets, but uniquely identify each 
schmucklet's output. (Hint: What's a WSN?] 


LAB #1 [SUPER] 
DISCUSSION: 


- You don't want to confuse the poor development 
programmers who tear listings off the damn 
printers? [Hint: What's a DFORM? For which 
WSN?] 


- You'd like the listings to be identifiable by 
the members of the schmucklet [schmucklettes]. 
How can that be done? [Hint: What's a 
BANNERTEXT?] 


LAB #1 [SUPER] 
PROBLEM: | 


Create a form named U40XXX, where XXX is your 
group number. It must look a lot like the 
standard form at your WOO, and must be a pseudo 
form for that form. Test the form, using LDEV. 
When you're done, the instructor will continue 

with a group exercise designed to make a single 
form the permanent default for all schmucklets 

for the rest of the sessions. 


LAB 1 
ANSWER 


17:39 AUG 29 


ODBNOUAWNNDH 


! SUPER 


R FORM STDINT 


CR PSEUDO STDINT FOR STDLP 


BANNER 

REPEATS = 2 

ENTRY = 45, 
%$ 

Entry = Ol, 
%DATE 

Entry = Ol, 
%TIME 

Entry = 01, 
%ACCN 

Entry = 01, 
*SYSID 

Entry = 01, 

Entry = 01, 
%SUBFILE 
( Entry = Ol, 

Entry = O01, 
%JOBNAME 
) Entry = 01, 

Entry = O01, 
WOO= 

Entry = Ol, 
%WOO 

Entry = 01, 
WOD=@ 

Entry = Ol, 
%WOD 

Entry = 01, 
CP-6/ 

Entry = O01, 
%VERSION 

ENTRY = 4, 
Schmucklet # 1 is 

ENTRY = 4, 
%BANNERTEXT1 

ENTRY = 5, 
Schmucklet # 2 is 

ENTRY = 5, 
%BANNERTEXT2 

ENTRY = 10, 
CP-6 

ENTRY = 24, 
Internals 

ENTRY = 33, 
%BANNERTEXTS 

END 


‘85 LAB1_RESULTS ~~ 
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O, 


1, 


16, 2, 3, 2 
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END 
END 
| u 
! SUPER 
CR WSN INTERNAL 
DEVICE=LP@UPSTAIRS 
DFORM LP STDINT 
END 
MOD ZZINT? 
WSN=INTERNAL 


END 


LAB 2 
ASSIGNMENT 


LAB #2 [SHARED LIBRARIES] 


SCENARIO: 
- The head of the computer science department 
just read about shared libraries in the CP-6 
System Support manual. He's absolutely sure 
that the computer science graphics class can 
benefit from your writing a shared library for 
them. Who are you fo argue? As an exercise, 
you decide to write your own simple shared 
library to learn the "ins and outs” of 
shared library creation. 


LAB #2 [SHARED LIBRARIES] 
PROBLEM: | 


The rest of the specifics of the problem are 
described in detail in the handouts. Bonus 
points are awarded for stealing the System 
Support Manual that the head of the computer 
science department was reading. 


17:45 AUG 29 ‘85 LAB2_ ASSIGNMENT 

U40 (CP-6 INTERNALS) CLASS 

SHARED LIBRARIES LAB 

1) Make a subroutine library. The library will have 5 entry points: 


a) OPEN_DCB - this subroutine accepts a DCB number from the calling 
program, and opens the DCB to the timesharing terminal. 


b) WRITE_ALINE - this subroutine accepts a BUFFER and a SIZE and 
writes the SIZE number of bytes from the BUFFER through the DCB 
previously passed to the OPEN_DCB subroutine. 

c) READ_ALINE - this subroutine accepts a BUFFER and a maximum SIZE 
from the calling program and performs a read through the DCB opened 
in OPEN_DCB. The number of bytes read is returned through the SIZE 
parameter passed to the routine. 

d) CLOSE_DCB - closes the DCB opened by OPEN_DCB. 


e) EXIT_ALL - performs an M$EXIT. 


HINT: This library is best written in PL-6. 
HINT: See the DCBNUM function in the PL-6 reference manual. 
HINT: You must get the DCB’s number from the calling program. 


HINT: Your lab instructor has included a listing of his solution to 
the problem in this handout. 


HINT: Save the object unit(s) from this exercise, as you’1ll need 
them below. 

2) Use LEMUR to build an UNSHARED, SUBROUTINE library from the 
object unit(S) created from exercise 1. 

The UNSHARED version of your library will be named: 

: LIB_U4Onn 

where: 

nn is your group number 


HINT: See the LEMUR and LINK sections of the PROGRAMMER reference 
manual. re 


3) Write a MAIN program (in PL-6) that uses this library. Link your 
MAIN program with the UNSHARED version of the library. Does it 
check out okay? 


HINT: This isn’t even a shared library exercise. Use the standard 
object unit linking commands from the PROGRAMMER REFERENCE manual. 


HINT: Save the "MAIN" program OU from this exercise. Use a star file 
for the run unit. 

4) Use LINK to create a shareable version of the library. Place the 
shareable version of the library in a file called: 

: SHARED_U40Onn 

where 


mn is your group number 


HINT: See the LINK section of the PROGRAMMERS REFERENCE MANUAL. 


HINT: See your Lab Instructor’s solution to the problem (in the 
handout ) 


HINT: Ask yourself why the person who wrote the Lab Instructor’s 
example extracted X66_AUTO_O from :LIB_SYSTEM.:SYS and then used 

that in the link. What is it anyway? Maybe the explanation of what’s 
in :LIBRARY in the back of the Monitor Services Reference Manual will 
tell you. 


5) Use SPIDER to install the shareable version of the library on the 
running machine. Use the same name to install the library as it is 
already named. 


HINT: See the instructor’s handout to see how he did it. 
HINT: Ask yourself why he deletes it before installing it. 
HINT: Don’t use SPIDER to mess with anything else on the system. 


The Lab Instructor used to teach martial arts and small arms 
weaponry for the CIA. 


6) Link your MAIN program OU (from exercise 3) with the shared 
library you just created. Run it. SAVE THE RUN UNIT FROM THIS 
EXERCISE FOR LATER. YOU MAY NOT RELINK THIS RUN UNIT ONCE IT HAS 
RUN CORRECTLY. 


_ HINT: You may, once again, find *he Lab Instructor’s example handy. 


HINT: Ask questions about anything you don’t understand. 


HINT: Why are you linking with the SH option? The UNSAT option? 

7) Use the MOD command (of PCL) to change the name of your library 
to 

: SHARED_U4Onn_OLD. 

HINT: See MODIFY under PCL in the PROGRAMMER REFERENCE MANUAL. 

8) Modify your subroutine library. You have determined that you 
don’t like the prompt character issued by the system. You have also 
decided that you need your EXIT_ALL routine to display the fact that 
it indeed has exited. You decide the way to do this is to write a 


‘GOOM-BYE’ message to the terminal. 


Change your library accordingly. Recreate the OU. Check out the 
new, unshared version of the library. 


HINT: See M$PROMPT. 


HINT: What DCBs can a shared library reference? 


9) Relink the shared version of your library as 
: SHARED_U40nn 


Remember that you must keep the "transfer vector" intact. How can 
you do this? 


HINT: See the VECTOR option of LINK, PROGRAMMER REFERENCE MANUAL. 
HINT: Remember that you saved your old library as 

: SHARED_U4O0nn_OLD. 

10) Replace the old library (in memory) with the new library. 
HINT: Use SPIDER. 

11) Re-run the run unit you created in exercise 6. YOU MAY NOT 
RELINK THIS RUN UNIT. Does it work correctly? Why? Why not? 
Aren’t I frustrating? 


HINT: Transfer vectors are real important. 


17:44 AUG 29 ‘85 LAB2 JCL 


- !JOB WSN=LOCAL 

- !RES MEM=300, TIME=2 

- !PL6 LAB21_SI6 OVER LAB21_OU6(LS,SR(.:LIBRARY) , SCHEMA) 

- !LEMUR 

COPY :LIB_SYSTEM. :SYS(X66_AUTO_O) INTO *LIB 

- END 

- !LINK LAB21_0U6,*LIB ; 

= OVER :SHARED_INT (MAP(VALUE.NAME) ,NODEBUG,NOSH,SLIB,REP=0, ; 
- VECTOR ( ENTRIES(OPEN_DCB, WRITE_ALINE,READ_ALINE,CLOSE_DCB,EXIT_ALL), ; 
10 - REMOVE_E, REMOVE_S , DATA=247) ) 

11 - !PL6 LAB2M_SI6 OVER LAB2M_OU6(LS,SR(.:LIBRARY) , SCHEMA) 

12 - !LINK LAB2M_OU6 OVER LAB2M_RU(SHAREL=:SHARED_INT.2ZINT, ; 

13 - UNSAT=:LIB_SYSTEM. : SYS) 

14 - !SPIDER 

15 - DEL :SHARED_INT 

16 - IN :SHARED_INT,LIB FROM :SHARED_INT.ZZINT 

17 - L :SHARED_INT 


OMBNOoKANDH 
| 


18 - END 
19 - !LAB2M_RU 
20 - TUNA 


21 - !C LAB2_JCL TO LP(K) 


LAB 2 
ANSWER 


17:41 AUG 29 '85 LAB21_SI6 


1 - /*M* JJ'S SHARED LIBRARY (PHASE 1) */ 

2 an [ETRE RRR RRR EK EKER KEKE KER KERR RRR KEK RK ERK RRR EEK EKER EERE RRR RK KEK 
3 shen *T* *x 
4 - *T* COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1981 * 
5 oi xT * x 
6 ion RT REAR RRR RRR RRR EERE EKER EERE RR ER ER ERR RRR AER ERR RR ER ERA R ERE EEK / 
7 - /*X* DMR,PLM=5, IND=5,CTI=5,SD1=5,MCL=10,CSI=0,ECI=0 */ 

8 con 

9 - %SET LISTSUB='1'B; 

10 - 

11 - OPEN_DCB: PROC (DCBNO); 

12 - 

13 - DCL DCBNO SBIN WORD: 

14 - 

15 - %|INCLUDE CP_6; 

16 - 

17 - %FPT_OPEN (FPTN=OPEN_DCBNO, 

18 - CTG=YES, 

19 - RES='ME', 
20 - DISP=NAMED) ; 
21 - 
22 - /* GLOBAL DATA DEFINITIONS */ 
23 - 
24 - DCL GLOBAL_DCBNO SBIN WORD STATIC SYMDEF: 
25 - 
26 - /* 
27 - BEGIN PROCEDURE 
28 - */ 
29 - 
30 - GLOBAL_DCBNO = DCBNO;: 
31 - 
32 - OPEN_DCBNO.V.DCB# = GLOBAL_DCBNO; 
33 - 
34 - CALL M$OPEN (OPEN_DCBNO) 
35 - WHENAL TRETURN 
36 - DO; 


37 - CALL M$MERC; 


CALL MS$EXIT; 
END; /* DO IF ALTRETURN 


RETURN ; 
END OPEN_DCB; 
%EOD ; 
%SET LISTSUB = '1'B; 
READ_ALINE: PROC (BUF_, S!ZE_); 
DCL BUF_ CHAR(132); 
DCL SIZE_ SBIN WORD; 
DCL 1 BUFFER_ BASED, 
2 BUFFER_CHARS_ CHAR(SIZE_) CALIGNED; 
%\|NCLUDE CP_6; 
/* GLOBAL REFERENCES */ 
DCL GLOBAL_DCBNO SBIN WORD SYMREF: 
/* LOCAL FPTS */ 


%FPT_READ (FPTN=READ_ALINE_ 
WAIT=YES) ; 
%F $DCB ; 
/* 
BEGIN PROCEDURE 
bias 


READ_ALINE_.V.DCB# = GLOBAL_DCBNO; 
READ_AL|INE_.BUF_.BUF$ = ADDR(BUF_); 


ue 


77 - 


78 - READ_ALINE_.BUF_.BOUND = SIZE_ - 1; 

79 - 

80 - IF SIZE_ <= 0 

81 - THE 

82 - DO; 

83 - READ_AL|INE_.BUF_ = VECTOR (NIL): 

84 - ADDR(BUF_) -» BUFFER_.BUFFER_CHARS_ = ' '; 
85 - END: /* DO IF SIZE <= 0 */ 
86 - 

87 - CALL M$READ (READ_ALINE_) 

88 - WHENAL TRETURN 

89 - DO; 

90 - CALL M$MERC; 

91 - CALL MSEXIT; 

92 - END; /* DO IF ALTRETURN */ 
93 - 

94 - IF SIZE_ <= 0 

95 - THEN 

96 - SIZE_ = 0; 

97 - ELSE 

98 - $!1ZE_ = DCBADDR(GLOBAL_DCBNO) -> FS$DCB.ARS#: 
99 - 

100 - RETURN ; 

101 - 

102 - END READ_ALINE; 

103 - %EOD: 

104 - 

105 - %*SET LISTSUB='1'B; 

106 - 

107 - WRITE_ALINE: PROC (BUF_, SIZE_): 

108 - 

109 - DCL BUF_ CHAR(132); 

110 - 


111 - DCL SIZE_ SBIN WORD; 

112 - 

113 - /* GLOBAL REFERENCES */ 

114 - 

115 - DCL GLOBAL_DCBNO SBIN WORD SYMREF ; 


116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 


%INCLUDE CP_6; 


%FPT_WRITE (FPTN=WRITE_ALINE_, 
WAIT=YES) ; 


/* 
BEGIN PROCEDURE 
*/ 


IF SIZE_ <= 0 


THEN 
WRITE_ALINE_.BUF_ = VECTOR(NIL): 
ELS 
DO; 
WRITE_ALINE_.BUF_.BOUND = SIZE_ - 1; 
WR! TE_AL|NE_.BUF_.BUF$ = ADDR(BUF_); 
END: /* DO IF SIZE > O */ 


WRITE_ALINE_.V.DCB# = GLOBAL_DCBNO; 
CALL MSWRITE (WRITE_ALINE_) 


WHENAL TRETURN 
DO; 
CALL M$MERC; 
CALL MSEXIT; 
END; /* DO IF ALTRETURN */ 
RETURN: 
END WRITE_ALINE:;: 
%EOD ; 


%SET LISTSUB='1'B; 
CLOSE_DCB: PROC; 
/* GLOBAL REFERENCES */ 


DCL GLOBAL_DCBNO SBIN WORD SYMREF; 


%\|NCLUDE CP_6; 


%FPT_CLOSE (FPTN=CLOSE_DCB_, 
DISP=SAVE) ; 


/* 


a 
CLOSE_DCB_.V.DCB# = GLOBAL_DCBNO; 


CALL M$CLOSE (CLOSE_DCB_) 
WHENAL TRE TURN 
DO; 


CALL M$MERC; 
CALL M$EXIT; 
END; 


RETURN ; 
END CLOSE_DCB; 


%EOD ; 

EXIT_ALL: PROC; 
%INCLUDE CP_6; 
CALL MSEXIT; 


END EXIT_ALL; 


BEGIN PROCEDURE 


/* DO IF ALTRETURN 


eh 


17:41 AUG 29 '85 LAB2M_SI6 


1 - /*M* JJ'S SHARED LIBRARY TEST PROGRAM */ 
2 = [RT RRR REE RK ERK EKER ERR RRR REE RK KKK ERR KK KERR KERR EKER KE KK 
3 pa *T* x 
4 - *T* COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1981 * 
5 a xT * x 
6 = RT RRR RRR EERE RR EER EERE ERR ERR ERE RR RRR RRR RE REE RARER REE REE ERR RK / 
7 ~ /*X* DMR,PLM=5, IND=5,CTI=5,SDI=5,MCL=10,CSI=0,ECI=0 */ 

8 - 
9 - 

10 - %SET LISTSUB='1'B; 

1 - 

12 - 

13 - MYPROG: PROC MAIN; 

14 - 

15 - 

16 - /* LIBRARY ENTRY POINTS */ 

17 - 


18 - DCL OPEN_DCB ENTRY(1); 

19 - DCL READ_ALINE ENTRY(2): 
20 - DCL WRITE_ALINE ENTRY(2): 
21 - DCL CLOSE_DCB ENTRY: 

22 - DCL EXIT_ALL ENTRY: 


24 - DCL BUFFER_ CHAR(120) STATIC; 
25 - DCL BUFSIZ_ SBIN WORD STATIC INIT(SIZEC(BUFFER_)): 


26 - 

27 - DCL M$MINE DCB; 

59 E CALL OPEN_DCB(DCBNUM(M$MINE) ); 

31 2 CALL READ_AL!NE(BUFFER_,BUFS1IZ_); 
33 s CALL WRITE_ALINE(BUFFER_, BUFSIZ_); 
35 z CALL CLOSE_DCB; 


37 - CALL EXIT_ALL; 


38 - 
39 - END MYPROG; 
40 - 


LAB 3 


ANLZ, STATS, CONTROL 


¢ Look at some dumps 
¢ Look at running system 
e Get a feel for problem causes 


e If time allows, performance work 


SOME USEFUL SEGIDS (AND OFFSETS) 


$LS16 FOR x — Auto for Mon. for user 
$L$33 - Mon auto 
$LS37->.500 FOR x — bottom SS frame of User SS 
(.600 if CP running) 

$LS35->.560 —- bottom SS frame of Mon SS 
$LS4 using x — Auto of user 

(x{ICP,IDB,ASL} for other domains) 
$LS30 for x — User page table 
$LS31 - Mon page table 
$LS1 usix — JIT 
$LS2 usi/for x — file buffers 
$LS3 usi/for x — ROS 
$LS83 - TIGR data 


SOME USEFUL COMMANDS 


REC - Recovery buffer 
SCH - Scheduler Queues 
USRT - User Tables 

CPUS - List of CPUs 


EVB ~ Event Buffer (Sched Ev & CPU Connect) 
JIT, DCB, TCB (domain), AUTO 

SSF - Safe Store frame 

SYM - use RU for symbols. 

:, GOD, ALIB RET — Use Delta, go to it and return 

WHO HAS x OPEN 

lOCACHE 


SOME DUMPA WE WILL LOOK AT 


e A100 -— UDE-501 
e A084 - HFC-533 
e A112 - CPC-700 


SOME DUMPS YOU WILL LOOK AT 


A071 - UDE-501 
e013 - UDE-501 
e015 — UDE-501 
A185 — QXA-751 
1024 — HFC-530 


POSSIBLE OTHER EXERCISES 


¢ Find out what a user is doing 
e Attack an inefficient program 


e Talk about system support section 


LAB 4 
ASSIGNMENT 
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Task: 


Write a simple version of OUTSYM. 


You have the following options: 


1) 
2) 


3) 


Do both programs. Work on #1 first, in case you run out of time. 


Do only the AU program. Use the provided program to generate 
file input to your comgroup. 


Do only the terminal IO portion of the AU program by adding 
code to the provided partial solution. 


PROGRAM #1 - The AU. 


The AU must be able to perform the following tasks. 


1) Accept DCB connects. 


2) Once a DCB user connects, open a file called PRINT:sname where 
sname is the station name of the DCB user. Send all records 
recieved from this station to that file. Since you don’t know 
how many DCB stations will connect at once, you’d better use 
M$GETDCB. You’d also better add something to PRINT:sname to 
avoid collisions if the same user sends you more than one file. 


3) When the DCB station closes, close the matching file. You’d 
better stick the file name in a table, however, you’1ll need it 
later. Make sure you write all the records from this DCB to 
the PRINT: file before you close it. 


4) Accept terminal connects. 
5) If a terminal is connected, and a PRINT:sname file is available, 


then open the PRINT: file and send the contents to the terminal 
station. Delete the print file when done. 


6) Think up a way to get the terminal stations logged off on request. 


Want some bonus points? Do something the solution doesn’t! Adda 
Simulated operator’s console using a second comgroup. Add the 
following capability to the AU. 


7) Have it open a second comgroup. This comgroup should allow 
only terminal connects. 


8) Printing of files thru the first comgroup will be controlled 
via commands recieved from a terminal connected to the second 
comgroup. Implement the following commands: 


WHAT — When received from a terminal device connected to 
to the command comgroup causes a list of PRINT: files 


waiting to be printed. 

PRINT fid - Will print fid if a print device is connected 
to the first comgroup, else prints ‘No Way’ on the 
command terminal. 

OFF - Does about what you’d expect. 

Use no-wait IO to accomplish this task. An ASYNC routine is provided 
for you if you don’t want to develop your own. See INT_CGLAB_ASYNC. 
Get steps 1-3 running before you go on to 4-6. If you choose not 
to do steps 1-3, the partial solution is in INT_CGLAB_PART_SI1. 
PROGRAM #2 - The COPY program. 
1) Open to the comgroup. Use your sysid as your station name. 
2) Write LO type output to the comgroup. 
3) Close the comgroup. 


If you chose not to do this program, the solution is in 
INT_CGLAB_SI2. The run unit is INT_CGLAB_2. 


LIST of available programs in LJSHOST: 
INT_CGEX_SI1 
INT_CGEX_SI2 example programs 


INT_CGLAB_SI1 program #1 
INT_CGLAB_SI2 program #2 


INT_CGLAB_ASYNC async routine for no-wait IO 
INT_CGLAB_PART_SI1 partial solution of program #2 


17:51 AUG 29 ’85 INT_CG_DESC 
INTERNALS COMGROUP LAB 
Purpose: to learn to manipulate CP6 comgroups 


Your group will be provided with sample programs which 
illustrate some comgroup programming techniques. These 
programs involve a comgroup administrative user that reads 
messages from a terminal station and sends the messages to a 
DCB station, where the messages are written back to the 
terminal station and displayed. 


The example source files are INT_CGEX_SI1 and INT_CGEX_SI2 
in account LJSHOST @L66B. 


Some comgroup X account tools that you might find useful are: 
CCG 
LARK 
CGU 


It is necessary to create device logons for comgroup terminal 
stations. The following is an example of how to create a device 
Logon: 


! SUPER 

CMD*CRE DEV LdJS1HOST 

OPT *USE=CG 

OPT* PROFILE=VIP7205 

OPT*COMGROUP=CG/ INTERNALS_CG.LJSHOST 
OPT*NOCG=INFORM 

OPT* PASS=CG 

OPT*END 

CMD* END 
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- !JOB NAME=!INT_CGEX_CRU,WSN=UPSTAIRS 

~- !RESOURCE TIME=3,MEM=256 

- !PL6 INT_CGEX_SI1 OVER *INT_CGEX_OU1, INT_CGEX_LS1 
- !LINK *INT_CGEX_OU1 OVER INT_CGEX_1 

'PL6 INT_CGEX_SI2 OVER *INT_CGEX_OU2, INT_CGEX_LS2 
'LINK *INT_CGEX_OU2 OVER INT_CGEX_2 

- !C INT_CGEX_LS1 TO LP 

- !C INT_CGEX_LS2 TO LP 


ONOAhWNH = 
' 
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OONOABWN — 


| 


/*M* INT_CGEX_SI1 


INT_CGEX_S11 


internals class comgroup example - SI1 of 2 */ 


ADMINISTRATIVE_USER : PROC MAIN ; 


/* 
NAME : 


PURPOSE : 


DESCRIPTION: 


H/ 

% | NCLUDE 
% | NCLUDE 
%B $ CGAURD 
%EQU_CG 


, 


CP_6 


ADMINISTRATIVE_USER 


Provides a comgroup AU that reads messages froma terminal station 
and writes those messages to a DCB station who sends the messages 
back to the terminal station as 'ECHO: message’. 


This AU is run from online. It opens (creates) a comgroup and 
modifies it to fit this application via M$CGCTL. It then waits 

for the DCB station and the terminal station to connect to the 
comgroup. When both stations have connected, the AU writes a 
"logged on” notification message to the terminal station and his 
own terminal and also sends a message to the DCB station informing 
him of the STATION name of the terminal station. The AU then reads 
messages from the terminal station and writes them to the DCB 
station. If the message ‘OFF’ is received from the terminal 
station, this is sent to the DCB station (not echoed). The DCB 
station recognizes this as a signal to close its station and exit. 
The AU then sends a "logged off” message to the terminal station 
and the AU's terminal, disconnects the terminal station, and exits. 
If break is typed at the AU's terminal, the AU tells the DCB 
station to close and exit by sending the message 'AU says goodbye’. 
The AU then sends the "logged off" message to the terminal station 
and disconnects the terminal station. The AU then exits. 


CP_6_SUBS 


DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


%FSDCB ; 


AU_MESSAGE 
DATE 

FLAGS 

2 DCB_CON 
2 TERM_CON 
2 AU_BREAK 
2 TERM_LOGOFF 
1O_BUFFER 
|O_BUFFER$ 
M$CG 

MSCG$ 

M$DO 

M$LO 
MSGTYP 

TIME 


" *AUEV : 


CHAR ( 8 ) STATIC 


STATIC SYMDEF, 


BIT ( 1 ) UNAL 
BIT ( 1 ) UNAL 
BIT ( 1 ) UNAL 
BIT ( 1 ) UNAL 


INIT ( %NO# 
INIT ( %NO# 
INIT ( %NO# 
INIT ( %NO# 


CHAR ( 200 ) STATIC SYMDEF 


PTR STATIC INIT ( ADDR ( 


DCB ; : 
PTR STATIC SYMDEF ; 
DCB ; 

DCB ; 

CHAR ( 8 ) ; 

CHAR ( 


INTERRUPT_HANDLER ENTRY ASYNC 


%FPT_ACT IVATE 


%FPT_CGCTL 
( 


%FPT_CLOSE 
( 


%FPT_INT 


( FPTN 
STCLASS 
DCB 
DISCONNECT 
STATION 


FPTN 
STCLASS 
DCB 
CGCP 


FPTN 
STCLASS 
DCB 


MSCG, 
YES, 


FPTCGCTL_CG, 
CONSTANT, 
MSCG, 
VLPCGCP ) ; 


FPT_CLOSE_CG, 


MSCG ) ; 


11.) STATIC ; 


, 


FPT_ACTIVATE_CG, 
STATIC SYMDEF, 


VLP_STATION_TERM ) ; 


STATIC SYMDEF, 


|O_LBUFFER ) ) 


, 


77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 


%FPT_OPEN 


%FPT_READ 


%FPT_T IME 


%FPT_WRITE 


%FPT_WRITE 


( 


( 


( 


FPTN 
UENTRY 


FPTN 
STCLASS 
ACCT 
ASN 

AU 

CTG 
DCB 
EXIST 
FUN 
NAME 
QIss 
SCRUB 
SETSTA 


FPTN 
BUF 

DCB 
STATION 


FPTN 
DATE 
DEST 
TIME 


FPTN 
STCLASS 
BUF 
DCB 


FPTN 
BUF 


FPT_INT, 


INTERRUPT_HANDLER 


FPTOPEN_CG, 
CONSTANT , 
VLPACCT , 
COMGROUP , 
YES, 

YES, 

MSCG, 
OLDFILE, 
CREATE, 
VLPNAME , 
YES, 

YES, 
VLPSETSTA_AU ) 


FPT_READ_CG, 
|O_BUFFER, 
MSCG, 
VLP_STATION ) 


FPT_TIME, 
DATE, 
LOCAL , 
TIME ) ; 


FPT_WRITE_CG, 
STATIC SYMDEF, 
1O0_BUFFER, 
MSCG ) ; 


FPT_WRITE_LO, 
|O_BUFFER, 


, 


, 


) 


, 


DCB 


%VLP_CGCP 


(_ FPTN 
STCLASS 
RAS 
TERMCONAU 
TERMCONNAU 
TRMRDS IZ 


%V LP_NAME 


( FPTN 
STCLASS 
NAME 


%VLP_ACCT 


/* 


ei); 


(_ FPTN 
STCLASS 


, ACCT 


%VLP_SETSTA 


( FPTN 
STCLASS 
MYSTATION 


%VLP_STAT ION 


YVLP_ 


( FPTN 
STCLASS 


STATION 
( FPTN 


%VLP_STATION 


( FPTN 
MSGTYP 


= VLPSSTATION, 


M$LO ) ; 


VLPCGCP , 
CONSTANT , 
YES, 
NO, 


VLPNAME , 
CONSTANT, 


" INTERNALS_CG’ 


VLPACCT, 
CONSTANT 


"LJSHOST ' 


VLPSETSTA_AU, 


CONSTANT, 
"AU' ) ; 


BASED ) ; 


VLP_STATION ) 


VLP_STATION_TERM, 


*LOG_MSG' 


) 


) 


155 - %VLP_STATION 


156 - ( FPTN = VLP_STATION_DCB, 
157 - STATION = 'DCB', 

158 - MSGTYP = 'TRM_ECHO' ) ; 
169 - 


160 - %EJECT ; 
161 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 
162 —- FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STATION_DCB ) ; 


163 - 

164 - /* 

165 - Create a new comgroup and modify it's control parameters. 
166 - */ 

167 - 


168 - CALL MSOPEN ( FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
169 - CALL M$CGCTL ( FPTCGCTL_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
170 - 


171 - /* 

172 - Set break control. 

173 - */ 

174 - 

175 - CALL M$INT ( FPT_INT ) ALTRET ( REPORT_ERROR_AND_ EXIT ) ; 

176 - 

177 - /* 

178 - Loop until the TERM station and DCB station have both connected or 
179 - break has been typed at the AU's terminal. 

180 - */ 


184: = 
182 - DO UNTIL ( FLAGS.TERM_CON AND FLAGS.DCB_CON ) OR FLAGS.AU_BREAK ; 
183 - 


184 - [* 

185 - Issue a read for a message directed to the AU. This should catch only 
186 - *AUEV messages. 

187 - */ 

188 - 

189 - VLP_STATION.CTL.DIRONLY# = %YES# ; 

190 - CALL M$READ ( FPT_READ_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 

191 - 

192 - IF ( M$CG$->F$DCB.LASTSTA$-—>VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO : 


193 - DO CASE !1O_BUFFER$->B$CGAURD.EVENT ; 


194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 


CASE ( %CG_TCON# ) ; 
VLP_STATION_TERM.STATION# = !1O0_BUFFER$—>B$CGAURD.STATION 
FLAGS.TERM_CON = %YES# ; 
CASE ( %CG_DOPN# ) : 
1F ( VLP_STATION_DCB.STATION# = I1O_BUFFER$->B$CGAURD.STATION ) THEN DO : 
FLAGS .DCB_CON = %YES# :; 
END ; ELSE DO ; 
/* 
Let's just ignore this station - it's not the one we expected. 
eave 
END ; 
CASE ( %CG_TDSC# ) ; 
1F ( VLP_STATION_TERM.STATION# = 1O_BUFFER$->B$CGAURD.STATION ) THEN DO; 
FLAGS.TERM_CON = %NO¥# ; 
END ; 
CASE ( %CG_DCLS# ) ; 
IF ( VLP_STATION_DCB.STATION# = 1O_BUFFER$-—>B$CGAURD.STATION ) THEN DO : 
FLAGS .DCB_CON = %NO# ; 
END ; 
CASE ( ELSE ) ; 
/* 
Ignore the other possible AU events. 
*/ 
END ; 
END ; ELSE DO ; 
/* 
This is an unexpected message - just throw it away. 
to) 


IF FLAGS.AU_BREAK THEN DO; 
GOTO CLOSE_AND_EXIT ; 
END ; 


/* 
Activate the terminal station. 
*/ 


233 - 
234 - CALL M$ACTIVATE ( FPT_ACTIVATE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
235 - 


236 - /* 

237 - Write a logon message to the terminal station and M$LO. Also send the 
238 - terminal ID to the DCB station. 

239 - */ 

240 - 


241 - FPT_TIME.DATE_ = VECTOR ( DATE ) ; 

242 - FPT_TIME.TIME_ = VECTOR ( TIME ) ; 

243 - CALL M$TIME ( FPT_TIME ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 

244 - CALL CONCAT ( IO_BUFFER , VLP_STATION_TERM.STATION#, ' on at ', TIME, ' ', DATE) : 
245 - CALL MSWRITE ( FPT_WRITE_LO ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
246 - FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STATION_TERM ) ; 

247 — CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
248 - IO_BUFFER = VLP_STATION_TERM.STATION# ; 

249 - FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STATION_DCB ) ; 

250 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
251 - 

252 - VLP_STATION.CTL.DIRONLY# = %NO# ; 


253 - 

254 - /* 

255 - The AU is now set up to read all messages, directed or not. The AU will send 
256 - messages read from the terminal station to the DCB station until! "OFF” is typed 
257 - at the terminal station or break is entered at the AU's terminal. 

258 - */ 

259 - 

260 — DO UNTIL FLAGS.TERM_LOGOFF OR FLAGS.AU_BREAK 

261 - 

262 - IO_BUFFER = ' ' ; 

263 - CALL M$READ ( FPT_READ_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 

264 - 

265 - MSGTYP = M$CG$->F$DCB.LASTSTA$—>VLP$STATION.MSGTYP# 

266 - IF ( MSGTYP ~= %AU_MESSAGE ) THEN DO ; 

267 - IF ( !tO_BUFFER = ‘OFF’ ) OR ( IO_BUFFER = ‘off’ ) THEN DO : 

268 - FLAGS.TERM_LOGOFF = %YES# ; 

269 - END ; 

270 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 


271 - END ; ELSE DO ; 


272 - DO CASE |1O0_BUFFER$-—>B$CGAURD.EVENT ; 


273 - CASE ( %CG_DCLS# ) ; 

274 - IF ( VLP_LSTATION_DCB.STATION# = I!O_BUFFER$->BSCGAURD.STATION ) AND 
275 - NOT FLAGS .AU_BREAK THEN DO ; 

276 - 1O_BUFFER = ‘DCB station closed unexpectedly’ ; 

277 - CALL MSWRITE ( FPT_WRITE_LO ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
278 - FLAGS.TERM_LOGOFF = %YES# ; /* let's fake the terminal logoff */ 
279 - END ; 

280 - CASE ( %CG_TDSC# ) ; 

281 - IF ( VLP_STATION_TERM.STATION# = 1O_BUFFER$->B$CGAURD.STATION ) THEN DO ; 
282 - IO_BUFFER = 'TERM station disconnected unexpectedly’ ; 

283 - CALL MSWRITE ( FPT_WRITE_LO ) ALTRET ( REPORT_ERROR_AND_EXIT ) ;: 
284 - IO_BUFFER = 'AU says goodbye’ ; 

285 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 

286 - GOTO CLOSE_AND_EXIT ; 

287 - END ; 

288 - CASE ( ELSE ) ; 

289 - /* 

290 - Ignore the other possible AU events. 

291 - */ 

292 - END ; 

293 - END ; 

294 - 

295 - END 

296 - 

297 - /* 

298 - Send the logoff message to the terminal station and to M$LO. 

299 - */ 

300 - 

301 - CALL M$TIME ( FPT_TIME ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 

302 - CALL CONCAT ( IO_BUFFER, VLP_STATION_TERM.STATION#, ' off at ', TIME, ' ', DATE ) ; 


303 - CALL MSWRITE ( FPT_WRITE_LO ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
304 - FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STATION_TERM ) ; 
305 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 


306 - 

307 - /* 

308 - Disconnect the terminal and close the comgroup. 
309 - */ 


310 - 


311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 


CALL M$DEACTIVATE ( FPT_ACTIVATE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 


CLOSE_AND_EXIT: ; 
CALL MS$CLOSE ( FPT_CLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
CALL M$EXIT ; 


REPORT_ERROR_AND_EXIT: ; 

IF M$CG$->FSDCB.FCD# THEN DO ; 
CALL M$CLOSE ( FPT_CLOSE_CG ) 
END ; 
CALL M$MERC ; 
CALL M$EXIT ; 


END ADMINISTRATIVE_USER ; 


%EOD ; 
INTERRUPT_HANDLER : PROC ASYNC 


/* 


NAME : INTERRUPT_HANDLER 

PURPOSE : Takes care of interrupts caused by typing break at the AU's 
terminal. 

DESCRIPTION: If the DCB station is connected to the comgroup, 


goodbye’ message is sent and the AU_BREAK flag is sent. 
will then finish processing this break when the DCB station's 
close is announced in an AU event message. If the DCB station 
not present, the terminal station is disconnected and the AU 
exits. This is done because the AU is hung in a wait read that 
won't complete until the DCB station connects and the break must 


be taken care of inmediately. 
*/ 


%\INCLUDE CP_6 ; 
%\INCLUDE CP_6_SUBS ; 


DCL 1 FLAGS SYMREF , 
2 DCB_CON BIT ( 1 ) UNAL, 
2 TERM_CON BIT ( 1 ) UNAL, 


350 - 2 AU_BREAK BIT ( 1 ) UNAL, 


351 - 2 TERM_LOGOFF BIT ( 1 ) UNAL ; 

352 - DCL |O_BUFFER CHAR ( 200 ) SYMREF ; 
353 - DCL M$CG DCB ; 

354 - DCL MSCG$ PTR SYMREF ; 

355 - 

356 - %F$DCB ; 

357 - 

358 - %FPT_ACTIVATE 

359 - ( FPTN = FPT_ACTIVATE_CG, 
360 - STCLASS = SYMREF ) ;- 

361 - 

362 - %FPT_CLOSE 

363 - ( FPTN = FPT_CLOSE_CG, 

364 - STCLASS = SYMREF ) ; 

365 - 

366 - %FPT_WRITE 

367 - ( FPTN = FPT_WRITE_CG, 

368 - STCLASS = SYMREF ) ; 

369 - 

370 - %EJECT ; 

371 - IF FLAGS.DCB_CON THEN DO :; 

372 - |O_BUFFER = 'AU says goodbye’ ; 

373 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
374 - FLAGS .AU_BREAK = %YES# ; 

375 - RETURN ; 

376 - END ; ELSE DO ; 

377 - IF FLAGS.TERM_CON THEN DO ; 

378 - CALL MSDEACTIVATE ( FPT_ACTIVATE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
379 - END ; 

380 - CALL M$CLOSE ( FPT_CLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
381 - CALL M$EXIT ; 

382 - END ; 

383 - 

384 - REPORT_ERROR_AND_EXIT: ; 

385 - CALL MSCLOSE ( FPT_CLOSE_CG ) ; 

386 - CALL M$MERC ; 

387 - CALL M$EXIT 


388 - END INTERRUPT_HANDLER : 
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OOAONDAAWN — 


10 


/*M* INT_CGEX_S12 


INT_CGEX_S12 


internals class comgroup example - SI2 of 2 */ 


DCB_ECHO : PROC MAIN ; 
/* 
NAME : DCB_ECHO 
RURPOSE : Echoes the messages sent from the AU back to the terminal station. 
DESCRIPTION: The DCB station receives the name of the terminal station in the 
first message from the AU. It then sends the messages received 
from the AU to the terminal station in the form ‘ECHO: message’. 
If the message 'OFF' or ‘AU says goodbye’ is received, 
it simply exits. 
*/ 
% | NCLUDE CP_6 
% | NCLUDE CP_6_SUBS ; 
DCL 1 FLAGS STATIC, 
2 TERM_LOGOFF BIT ( 1 ) UNAL INIT ( %NO# ), 
2 NO_AU BIT ( 1 ) UNAL INIT ( %NO# ) 
DCL IN_BUFFER CHAR ( 200 ) STATIC; 
DCL OUT_BUFFER CHAR ( 80 ) ; 
DCL M$CG DCB ; 
DCL M$CG$ PTR ; 
%FSDCB ; 
%F PT_CLOSE 
( FPTN = FPTCLOSE_CG, 
STCLASS = CONSTANT, 
DCB = MSCG ) ; 
%FPT_OPEN 
( FPTN = FPTOPEN_CG, 
STCLASS = CONSTANT, 
ACCT = VLPACCT, 
ASN = COMGROUP , 


DCB 
FUN 
NAME 
SCRUB 
SETSTA 


%FPT_READ 
( FPTN 
STCLASS 
BUF 
DCB 
STATION 


%FPT_WRITE 
( FPTN 
DCB 
STATION 


%VLP_ACCT 
( FPTN 
STCLASS 
/* 
,ACCT 
*/ 


%VLP_NAME 
( FPTN 
STCLASS 
NAME 


%VLP_SETSTA 
( FPTN 
STCLASS 
MYSTAT ION 


%VLP_STAT ION 
( FPTN 
STCLASS 


MSCG, 

UPDATE, 
VLPNAME , 

YES, 
VLPSETSTA_DCB ) 


FPTREAD_CG, 
CONSTANT, 
|N_BUFFER, 
MSCG,’ : 
VLPSTATION_AU ) 


FPT_WRITE_CG, 
MSCG, 


VLP_STATION_TERM ) 


VLPACCT , 
CONSTANT 


‘LJSHOST' 


VLPNAME , 
CONSTANT, 
‘ INTERNALS_CG' 


VLPSETSTA_DCB, 
CONSTANT , 
‘DCB' ) ; 


VLPSTAT ION_AU, 
CONSTANT , 


DIRONLY = YES, 
MSGTYP = 'TRM_ECHO’, 
STATION = 'AU' ) ; 


%VLP_STATION 
( FPTN 
MSGTYP 


VLP_STATION_TERM, 
"TRM_ECHO' ) ; 


%EJECT ; 
M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 


/* 
Open the comgroup. 
*/ 


CALL MSOPEN ( FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 


/* 
nead the name of the terminal station. 
*/ 


CALL M$READ ( FPTREAD_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
IF IN_BUFFER = 'AU says goodbye’ THEN DO ; 
FLAGS .NO_AU = %YES# ; 
END ; ELSE DO ; 
VLP_STATION_TERM.STATION# = IN_BUFFER ; 
END ; 


/* 
Read the messages from the AU and forward them to the terminal station 
until the AU goes away or the terminal logs off. 

*/ 


DO WHILE NOT FLAGS.TERM_LOGOFF AND NOT FLAGS.NO_AU ; 


CALL M$READ ( FPTREAD_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 

(1F ( |N_BUFFER = ‘OFF’ ) OR ( IN_BUFFER = ‘off’ ) THEN DO ; 
FLAGS .TERM_LOGOFF = %YES# ; 

END ; ELSE IF ( IN_BUFFER = ‘AU says goodbye’ ) THEN DO ; 


FLAGS .NO_AU = %YES# ; 
END ; ELSE DO ; 
CALL CONCAT ( OUT_BUFFER, ‘ECHO: ',!IN_BUFFER ) : 
FPT_WRITE_CG.BUF_ = VECTOR ( OUT_BUFFER ) ; 
FPT_WRITE_CG.BUF_.BOUND = M$CG$->F$DCB.ARS# - 1 ; 
CALL M$WRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
END ; 


CALL M$CLOSE ( FPTCLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
CALL MSEXIT ; 


REPORT_ERROR_AND_EXIT: ; 

IF M$CG$->F$DCB.FCD# THEN DO ; 
CALL MS$CLOSE ( FPTCLOSE_CG ) ; 
END ; 
CALL M$MERC ; 
CALL MSEXIT ; 


END DCB_ECHO ; 


, 


LAB 4 
ANSWER 
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- */ 


1 - EVENT_HANDLER : PROC ASYNC :; 

2 = 

3 - /* 

4 - NAME : EVENT_HANDLER 

5 - PURPOSE : Takes care of events caused by IO comletion. 
6 - DESCRIPTION: Sets the appropriate flags and returns. 

7 

8 

9 


10 - %INCLUDE CP_6 ; 
11 - %INCLUDE CP_6_SUBS ; 


12 - 
13 - %BSTCB 

14 - 

15 - %BSNWIO 

16 - ( STCLASS = "BASED ( BSNWIOS )" ) ; 
7 - 

18 - %EQU PRINT_READ_EVENT = 1001 ; 

19 - %EQU CONSOLE_READ_EVENT= 1002 ; 

20 - 

21 - DCL BSNWIOS PTR ; 

22 - DCL BSTCB$ PTR SYMREF ; 

23 - DCL 1 EVENTS SYMREF , 

24 - 2  PRINT_COMP BIT ( 1 ) UNAL, 
25 - 2 CONSOLE_COMP- BIT ( 1 ) UNAL, 
26 - 2 BAD_COMP BIT ( 1 ) UNAL, 
27 - 2 ERR BIT ( 36 ), 

28 - 2 TYC BIT ( 36 ) 

29 - 

30 - %EJECT ; 

31 - DO INHIBIT ; 

32 - BSNWIOS = BSTCB$->BSTCB.STK$ 

33 - DO CASE ( BSNWIO.EVID ) ;: 

34 - CASE ( %PRINT_READ_EVENT ) ; 

35 - EVENTS.PRINT_COMP = %YES# ; 


36 - CASE ( %CONSOLE_READ_EVENT ) ; /* not currently implemented */ 
37 - EVENTS .CONSOLE_COMP = %YES# ; 


CASE ( ELSE ) ; 
EVENTS .BAD_COMP = 


END ; 
EVENTS.ERR 


END ; 


RETURN ; 


BSNWIO.ERR 


EVENTS.TYC = BSNWIO.TYC 


END EVENT_HANDLER ; 


RYES# 


, 


17:34 AUG 29 '85 INT_CGLAB_CRU.... 


' JOB NAME=!INT_CGLAB_CRU ,WSN=UPSTAIRS 

- !RESOURCE TIME=3,MEM=256 

- !PL6 INT_CGLAB_S!I1 OVER *!INT_CGLAB_OU1, INT_CGLAB_LS1 
- !LINK *INT_CGLAB_OU1 OVER INT_CGLAB_1 

!PL6 INT_CGLAB_SI2 OVER *INT_CGLAB_OU2, INT_CGLAB_LS2 
- !LINK *INT_CGLAB_OU2 OVER INT_CGLAB_2 

- !C INT_CGLAB_LS1 TO LP 

- !C INT_CGLAB_LS2 TO LP 


ONOOARWNH = 
I 


17:34 AUG 29 '85 INT_CGLAB_PART_CRU., 


- !JOB NAME=INT_CGLAB_CRU,WSN=UPSTAIRS 

~ !RESOURCE TIME=3,MEM=256 

'PL6 INT_CGLAB_PART_SI1 OVER *!INT_CGLAB_PART_OU1, INT_CGLAB_PART_LS1 
- !LINK *INT_CGLAB_PART_OU1 OVER INT_CGLAB_PART_1 

- !C INT_CGLAB_PART_LS1 TO LP 


OAhWN— 
' 


17:34 AUG 29 '85 INT_CGLAB_PART_SI 1 


1 - /*M* INT_CGLAB_PART_SI1 internals class comgroup lab - SI1 of 2 */ 

2 - OUTSYM_AU : PROC MAIN ; 

3 - 

yet Aas 

5 - NAME : OUTSYM_AU 

6 - 

= PURPOSE : This is the administrative user for the partial version of OUTSYM. 
8 - Files are copied into the comgroup by DCB stations identified 
9 - by SYSID. These files are copied to PRINT:sysid_ext files. 
10 - 
t= DESCRIPTION: This AU is run from online. It opens (creates) a comgroup and 
12 - modifies it to fit this application via M$CGCTL. It recognizes 
13 - DCB connections as a signal to open a new PRINT file. It then 
14 - takes all records provided by that station and writes them to 
15 - the PRINT file. It recognizes a DCB close as a signal that all 
16 - records have been written into the comgroup (but possibly not 
17 - processed yet). Because of this, a second DCB station exists 
18 - (a non-AU station) which does wait reads to process the 

19 - messages remaining in the comgroup written by the closing DCB. 
20 - NOTE: The comgroup AU cannot do this because if *AUEV 
21 - messages exist in the comgroup (having highest message prio) 
22 - an AU read specifying a message of some other message type wil| 
23 - be satisfied by this *AUEV message - welcome to the wonderful 
24 - world of comgroups! 
25 - 
26 - */ 
27 - 
28 - 


29 - %INCLUDE CP_6 ; 

30 - %INCLUDE CP_6_SUBS ; 
31 - %INCLUDE B_ERRORS_C 
32 - %INCLUDE XU_MACRO_C 
33 - %INCLUDE XUG_ENTRY ; 


34 - 

35 - %EQU AU_MESSAGE = '*AUEV ao 
36 - %EQU PRINT_READ_EVENT = 1001 ; 

37 - %EQU CONSOLE_READ_EVENT= 1002 


DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 1 


DCL 

DCL 

DCL 

DCL 
%B$CGAURD 

( 

%BSALT ; 
%BSTCB ; 


%EQU_CG ; 


BSTCB$ 

DATE 

DCB_NUM 
EVENTS 

2 PRINT_COMP 
2 CONSOLE_COMP 
2 BAD_COMP 

2 ERR 

2 TYC 
EXTENSION 

| 


IDX 
|O0_BUFFER 
|O_BUFFERS$ 
M$CG 
M$CG$ 
M$SPECIAL 
M$SPECIAL$ 
PRINT_FILES 
2 NAME_EXT 
2 NAME 
3 STATION 
3 EXTENSION 
2 DCB_NUM 
PRINTNUM 
TIME 
EVENT_HANDLER 


INTERRUPT_HANDLER ENTRY ASYNC 


FPTN 
STCLASS 


PTR SYMREF ; 

CHAR ( 8 ) STATIC ; 

UBIN STATIC ; 

STATIC SYMDEF, 

BIT ( 1 ) UNAL INIT ( %NO# ), 
BIT ( 1 ) UNAL INIT ( %NO# ), 
BIT ( 1.) UNAL INIT ( %NO# ), 
BIT ( 36 ), 

BIT ( 36) ; 

UBIN STATIC INIT (0) ; 

UBIN : 

SBIN ; 

CHAR ( 200 ) STATIC ; 

PTR STATIC INIT ( ADDR ( IO_BUFFER ) ) 
DCB ;: 

PTR ; 

DCB ; 

PTR ; 

( 0:99 ) STATIC, 

CHAR ( 12 ) INIT ( ' '*100 ), 
REDEF NAME_EXT, 

CHAR ( 8 ), 

CHAR ( 4 ), 

UBIN INIT ( 0*100 ) ; 

UBIN STATIC INIT ( 0 ) 

CHAR ( 11 ) STATIC ; 

ENTRY ASYNC ; 
BSCGAURD , 

"BASED ( IO_BUFFER$ )" ) ; 


, 


77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 


%F$DCB ; 


%FPT_ACT I VATE 


( 
%FPT_CGCTL 

( 
%FPT_CLOSE 

( 


%FPT_CLOSE 


%FPT_EVENT 
( 


%FPT_GETDCB 
( 


%FPT_INT 


%FPT_OPEN 
( 


FPTN 
STCLASS 
DCB 
DISCONNECT 


FPTN 
DCB 
cGcP 


FPTN 
STCLASS 
DCB 


FPTN 
DISP 


FPTN 
UENTRY 


FPTN 
DCBNAME 
DCBNUM 


FPTN 
UENTRY 


FPTN 
STCLASS 


FPT_ACTIVATE_CG, 


STATIC, 
M$CG, 
YES ) ; 


FPT_CGCTL_CG, . 


MSCG, 


VLP_CGCP_SPECIAL ) 


FPT_CLOSE_CG, 


STATIC, 
MSCG ) ; 


FPT_CLOSE_INPUT, 


SAVE ) ; 


FPT_EVENT, 


EVENT_HANDLER ) 


FPT_GETDCB, 


VLP_NAME_DCB, 


DCB_NUM ) ; 


= FPT_INT, 


INTERRUPT_HANDLER 


FPTOPEN_CG, 
CONSTANT , 


) 


, 


, 


116 - ACCT = VLPACCT, 

117 - ASN = COMGROUP , 

118 - AU = YES, 

119 - CTG = YES, 

120 - DCB = MSCG, 

121 - EXIST = OLDFILE, 

122 - FUN = CREATE, 

123 - NAME = VLPNAME, 

124 - QIss = YES, 

125 - SCRUB = YES, 

126 - SETSTA = VLPSETSTA_AU ) ; 
127 - 

128 - %FPT_OPEN 

129 - ( FPTN = FPTOPEN_SPECIAL, 
130 - STCLASS = CONSTANT, 

131 - ACCT = VLPACCT, 

132 - ASN = COMGROUP , 

133 - DCB = M$SPECIAL, 

134 - FUN = UPDATE, 

135 - NAME = VLPNAME, 

136 - SCRUB = YES, 

137 - SETSTA = VLPSETSTA_SPECIAL 
138 - 

139 - %FPT_OPEN 

140 - ( FPTN = FPT_OPEN_INPUT, 
141 - ASN = FILE, 

142 - EXIST = NEWIHILE, 

143 - FUN = CREATE, 

144 - NAME = VLP_NAME_PRINT, 
145 - ORG = CONSEC, 

146 - SCRUB = YES ) : 

147 - 

148 - %FPT_READ 

149 - ( FPTN = FPT_READ_CG, 

150 - BUF = 1O_BUFFER, 

151 - DCB = MSCG, 

152 - EVENT = %PRINT_READ_EVENT, 
153 - STATION = VLP_STATION, 

154 - WAIT = NO) ; 


%FPT_READ 


%FPT_RELDCB 
( 


%FPT_WAIT 
( 


%FPT_WRITE 
( 


%VLP_CGCP 


%VLP_CGCP 
( 


%VLP_NAME 
( 


%VLP_NAME 


FPTN 
BUF 
DCB 
STATION 


FPTN 


FPTN 
STCLASS 
UNITS 


FPTN 
BUF 


FPTN 
CONMSG 
DCBCONAU 
DCBCONWA 
MINPG 
RAS 


FPTN 
CONMSG 


FPTN 
LEN 


FPTN 
LEN 


FPT_READ_SPECIAL, 
1O_BUFFER, 
MSSPECIAL, 
VLP_STATION_SPECIAL 


FPT_RELDCB ) 


FPTWAIT_ASECOND, 
CONSTANT , 


1) 


FPT_WRITE_INPUT, 
|O_BUFFER ) 


VLP_CGCP_OUTSYM, 


YES, 


NO, 


YES, 


4 


YES ) ; 


VLP_CGCP_SPECIAL , 


NO 


) 


’ 


, 


, 


VLP_NAME_DCB, 


31 


VLP_NAME_PRINT, 


31 


) 


) 


, 


, 


, 


) 


%VLP_NAME 
( FPTN 

STCLASS 
NAME 


%VLP_ACCT 
FPTN 
STCLASS 
/* 
, ACCT 
*/ 


- %VLP_SETSTA 


( FPTN 
STCLASS 
MYSTAT ION 


%VLP_SETSTA 
( FPTN 
STCLASS 
MYSTAT ION 


- %VLP_STATION 


( FPTN 
STCLASS 


%VLP_STAT ION 
( FPTN 


%VLP_STAT ION 
( FPTN 
EOFNONE 
MSGTYP 


%VLP_STAT ION 


( FPTN 
%XUG_GETCMD 


VLPNAME , 
CONSTANT, 
‘INTERNALS_CG’ ) 


VLPACCT, 
CONSTANT 
"LJSHOST ' 


VLPSETSTA_AU, 
CONSTANT , 
"AU' ) ; 


VLPSETSTA_SPECIAL, 
CONSTANT , 
"SPECIAL’ ) 


VLPSSTATION, 
BASED ) ; 


VLP_STATION ) 


VLP_STATION_SPECIAL, 
YES, 
"PRINT DA) 


VLP_STATION_DCB ) 


233 - (| NAME = XUGGETCMD, 

234 - STCLASS = CONSTANT ) 

235 - 

236 - %EJECT : 

237 - /* 

238 - Set break control. 

239 - */ 

240 - 

241 - CALL M$INT ( FPT_INT ) WHENALTRETURN DO ; CALL ERROR_EXIT ;: END ; 
242 - 

243 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) : 

244 - MSSPECIAL$ = DCBADDR ( DCBNUM ( M$SPECIAL ) ) 


245 - 

246 - /* 

247 - Create a new comgroup and modify its control parameters. 

248 - The first CGCTL specifies CONMSG=NO so the SPECIAL station can connect 

249 - without requiring activation. After that, another CGCTL is done specifying 
250 - the normal parameters that we should use. 

251 - */ 

252 - 


253 - CALL MSOPEN ( FPTOPEN_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 
254 - CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 
255 - CALL M$OPEN ( FPTOPEN_SPECIAL ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
256 - FPT_CGCTL_CG.CGCP_ = VECTOR ( VLP_CGCP_OUTSYM ) ; 

257 - CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
258 - 


259 - /* 

260 - Set event control. 
261 - */ 

262 - 


263 - CALL M$EVENT ( FPT_EVENT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
264 - 


265 - /* 

266 - Start the first no-wait read. 
267 - */ 

268 - 


269 - CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
270 - 
20 = fF 


272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 


sar) 


Start normal operation of getting PRINT files and printing them if possible. 


DO WHILE %YES# 


%E J 


DO INHIBIT ; 
DO WHILE EVENTS.PRINT_COMP 


END 


ECT 


END 


, 


CALL PROCESS_READ_EVENT ; 

EVENTS.PRINT_COMP = %NO# ; 

IOLBUFFER = ' ' ; 

CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT 


, 


CALL MSWAIT ( FPTWAIT_ASECOND ) WHENALTRETURN DO ; CALL ERROR_EXIT 


PROCESS_READ_EVENT : PROC ; 


/* 


=f 


IF ( M$CG$->F$DCB.LASTSTA$->VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO 


The message just read could be an AU event or a record to be written 


one 


END ; 
END 


into 


of the print files being created. Take care of it appropriately. 


EOF BIT (1); 


DO CASE BSCGAURD.EVENT ; 


/* 


’ 


This is a new DCB station. This station needs to be activated so 


that it can start shoveling data into the comgroup. An entry 


is 


then built in the print file table containing the station name and 


file extension, along with a non-zero DCB number. This number 


signifies that this print file is not complete (it can't be printed 
yet). The DCB number is also necessary when writing records to the 


file. 
</ 


, 


CASE ( %CG_DOPN# ) ; 
VLP_STATION_DCB.STATION# = BSCGAURD.STATION ; 
FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STATION_DCB ) :; 
CALL M$ACTIVATE ( FPT_ACTIVATE_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT 
CALL GET_NEW_INDEX ( IDX ) ; 
PRINT_FILES.NAME.STATION ( IDX ) = BSCGAURD.STATION 
EXTENSION = EXTENSION + 1 ; 
CALL BINCHAR ( PRINT_FILES.NAME.EXTENSION ( IDX ), 
EXTENSION ) ; 
CALL M$GETDCB ( FPT_GETDCB ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
PRINT_FILES.DCB_NUM ( IDX ) = DCB_NUM ; 
CALL CONCAT ( VLP_NAME_PRINT.NAME#, 
"PRINT: ', 
PRINT_FILES.NAME_EXT ( IDX ) ) ; 
CALL INDEX ( I, 
VLP_NAME_PRINT.NAME#, 
Oo); 
VLP_NAME_PRINT.L#¥ = | ; 
FPT_OPEN_INPUT.V.DCB# = DCB_NUM ; 


CALL M$OPEN ( FPT_OPEN_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 


/* 
This event signifies that the DCB station is finished writing data 
into the comgroup and is going away. The records in the comgroup 
that haven't been processed yet are read by the SPECIAL station 
using WAIT 10 and EOFNONE and written to the print file. The 
print file is then closed and the DCB number in the print file table 
is set to zero to signal that this file is ready to print. 


The reason that the DCB stations must be activated upon connection 
to the comgroup is now apparent - if this closing station inmediately 
reconnected and started writing records, we would put the new data 
is this old print file. 
*/ 


CASE ( %CG_DCLS# ) ; 
CALL GET_STATION_INDEX ( BSCGAURD.STATION, 


’ 


, 


END 


350 - IDX ) 

351 - IF ( IDX >= 0 ) THEN DO ; 

352 - VLP_STATION_SPECIAL.STATION# = PRINT_FILES.NAME.STATION ( IDX ) ; 

353 - FPT_WRITE_!INPUT.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) ; 

354 - EOF = %NO# ; 

355 - DO WHILE NOT EOF ; 

356 - CALL M$READ ( FPT_READ_SPECIAL ) 

357 - WHENALTRETURN DO ; 

358 - IF ( BSTCB$->B$TCB.ALT$-—>BSALT.ERR.CODE = %E$EOF ) THEN DO ; 
359 - EOF = %YES# ; 

360 - END ; ELSE DO: . 

361 - CALL ERROR_EXIT ; /* DOESN'T RETURN */ 

362 - END ; 

363 - END ; 

364 - 1F NOT EOF THEN DO ; 

365 - FPT_WRITE_INPUT.BUF_.BOUND = M$SPECIAL$->FSDCB.ARS# - 1 : 

366 - CALL MSWRITE ( FPT_WRITE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
367 - END ; 

368 - END ; 

369 - FPT_CLOSE_!INPUT.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) ; 

370 - CALL M$CLOSE ( FPT_CLOSE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
371 - FPT_RELDCB.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) ; 

372 - CALL M$RELDCB ( FPT_RELDCB ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
373 - PRINT_FILES.DCB_NUM ( IDX ) = 0 

374 - END ; 

375 - 

376 - CASE ( ELSE ) ; 

377 - [* 

378 - Ignore the other possible AU events. 

379 - # 

380 - END 

381 - 

382 - END ; ELSE DO ; 

383 - /* 

384 - This is a record to be written to a print file. 

385 - */ 

386 - CALL GET_STATION_INDEX ( M$CG$->F$DCB.LASTSTA$-—>VLP$STATION.STATION#, 

387 - IDX ) ; 

388 - IF ( IDX >= 0 ) THEN DO ; 


FPT_WRITE_INPUT.V.DCB#¥ = PRINT_FILES.DCB_NUM ( IDX ) 
FPT_WRITE_INPUT.BUF_.BOUND = M$CG$->F$DCB.ARS# - 1 ; 
CALL MSWRITE ( FPT_WRITE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT 
END ; 


RETURN 


END PROCESS_READ_EVENT =; 


%E J 


ECT ; 


GET_NEW_INDEX : PROC ( IDX ) ; 


/* 
Get an unused entry in the print file table. Returns -1 if none 
are available. 


ab 
IDX SBIN ; 
I UBIN 
|! =0 
DO WHILE ( | «<= PRINTNUM ) AND ( PRINT_FILES.NAME.STATION ( | ) ~= ' '" ) 
l!=t+t1: 
END 
IF ( | = PRINTNUM ) AND ( PRINTNUM « 100 ) THEN DO ; 
PRINTNUM = PRINTNUM + 1 ; 
IDX = I ; 
END ; ELSE IF ( | « PRINTNUM ) THEN DO : 
IDX = I ; 
END ; ELSE DO ; 
IDX = -1 ; 
END ; 
RETURN 


END 


END GET_NEW_ 


%EJECT ; 
GET_PRINTABL 
/* 
Get th 


-1 is returned 


RETURN 


END GET_PRINTABLE_INDEX 


%EJECT ; 
GET_STAT ION_ 
/* 
Get th 
¥/ 
DCL 
DCL 


DCL 


INDEX ; 


E_ INDEX 


e index of a printable file -—- name not blank and DCB number zeroed. 
if none exist. 


IDX SBIN ; 
UBIN 

( | «= PRINTNUM ) AND ( 
RIN 

tele Ge 


INDEX 


e index of the given station. 


STATION 
IDX 


PROC ( 


PROC ( 


CHAR ( 8 ) 


SBIN ; 
UBIN 


IDX ) 


STATION, 


’ 


IDX ; 
T_FILES.NAME.STATION ( | ) ~= ' ’ ) AND ( PRINT_FILES.DCB_NUM ( | ) 
| . 


IDX ) 


, 


O ) THEN DO ; 


is returned it doesn't exist. 


467 - 
468 - 
469 - 1=0 ; 
470 - ID -1 
471 - DO WHILE | <= PRINTNUM ) AND ( IDX = -1 ; 
( STATION = PRINT_FILES.NAME.STATION ( | ) ) AND ( PRINT_FILES.DCB_NUM ( | ) ~= 0 ) THEN E 
IDX = 1 ; 


=. 


472 - IF 
473 - 
474 - END ; 
475 - l= 1 +1; 

476 - END ; 

477 - 

478 - RETURN 

479 - 

480 - END GET_STATION_!INDEX 

481 - 

482 - %EJECT ; 

483 - ERROR_EXIT : PROC 

484 - 

485 - CALL XUG$CLOSE_DCBS ( XUGGETCMD ) 

486 - CALL M$MERC =; 

487 - CALL M$SEXIT 

488 - 

489 - END ERROR_EXIT :; 

490 - 

491 - 

492 - 

493 - END OUTSYM_AU 

494 - 

495 - %EOD ; 

496 - INTERRUPT_HANDLER : PROC ASYNC ; 

497 - 

498 - /* 

499 - NAME : INTERRUPT_HANDLER 

500 - PURPOSE : Takes care of interrupts caused by typing break at the AU's 
501 - terminal. 

502 - DESCRIPTION: Closes all DCB's and exits. 

503 - */ 

504 - 

505 - 


%\INCLUDE CP_6 ; 

%\INCLUDE CP_6_SUBS ; 
%INCLUDE XU_MACRO_C ; 
%\INCLUDE XUG_ENTRY ; 


%XUG_GETCMD 
(_ NAME 
STCLASS 


%EJECT ; 
CALL XUG$CLOSE_DCBS ( XUGGETCMD 
CALL M$SEXIT :; 


END INTERRUPT_HANDLER ; 


%EOD ; 

EVENT_HANDLER PROC ASYNC ; 

/* 
NAME : EVENT_HANDLER 
PURPOSE : Takes care of 
DESCRIPTION: 

*/ 


%\INCLUDE CP_6 ; 
%\|NCLUDE CP_6_SUBS 


%B S$ TCB 
%BSNWIO 

(| STCLASS = 
%EQU PRINT_READ_EVENT = 1001 ; 
%EQU CONSOLE_READ_EVENT= 1002 ; 
DCL BSNWIOS PTR ; 
DCL BSTCB$ PTR SYMREF 
DCL 1 EVENTS SYMREF , 


XUGGETCMD , 
CONSTANT ) 


RES 


events caused by 
Sets the appropriate flags and returns. 


, 


10 completion. 


"BASED ( BSNWIOS )” ) 


, 


, 


545 - 2 PRINT_COMP BIT ( 1 ) UNAL, 
546 - 2 CONSOLE_COMP BIT ( 1 ) UNAL, 
547 - 2 BAD_COMP BIT ( 1 ) UNAL, 
548 - 2 ERR BIT ( 36 ), 

549 - 2 TYC BIT ( 36); 
550 - 

551 - %EJECT ; 

552 - DO INHIBIT 

§53 - BSNWIOS = BSTCB$->BS$TCB.STK$ ; 

554 - DO CASE ( BSNWIO.EVID ) ; 

555 - CASE ( %PRINT_READ_EVENT ) ; 

556 - EVENTS.PRINT_COMP = %YES# ; 

557 - CASE ( %CONSOLE_READ_EVENT ) ; /* not currently implemented */ 
558 - EVENTS .CONSOLE_COMP = %YES# ; 

559 - CASE ( ELSE ) ; 

560 - EVENTS.BAD_COMP = %YES# ; 

561 - END ; 

562 - EVENTS.ERR = BSNWIO.ERR 

563 - EVENTS.TYC = BS$NWIO.TYC 

564 - END :; 

565 - 

566 - RETURN 

567 - 


568 - END EVENT_HANDLER ; 


17:34 AUG 29 '85 


OOMONAAHRWNH = 


INT_CGLAB_SI 1 


/*M* INT_CGLAB_S!1 internals class comgroup lab - SI1 of 2 */ 
PROC MAIN ; 


OUTSYM_AU 


/* 
NAME : 


PURPOSE : 


DESCRIPTION: 


*/ 


% | NCLUDE 


CP_! 


6 


OUTSYM_AU 


This is the administrative user for a simple version of OUTSYM. 
Files are copied into the comgroup by DCB stations identified 
by SYSID. These files are copied to PRINT: sysid_ext files 

and are printed at a terminal station if one is connected. 


This AU is run from online. It opens (creates) a comgroup and 
modifies it to fit this application via M$CGCTL. It recognizes 
DCB connections as a signal to open a new PRINT file. It then 
takes all records provided by that station and writes them to 
the PRINT file. It recognizes a DCB close as a signal that all 
records have been written into the comgroup (but possibly not 
processed yet). Because of this, a second DCB station exists 
(a non-AU station) which does wait reads to process the 
messages remaining in the comgroup written by the closing DCB. 
NOTE: The comgroup AU cannot do this because if *AUEV 

messages exist in the comgroup (having highest message prio) 

an AU read specifying a message of some other message type wil! 
be satisfied by this *AUEV message - welcome to the wonderful 
world of comgroups! 

A terminal connect signals that a "printer" is available so 
PRINT files can be sent to it. A terminal disconnect signals 
that we can no longer print files. If a file is currently 
being printed, that file is closed and saved to be printed 
again. A terminal break signals that the terminal requests 

to be disconnected. The print file is also saved in this case, 
if necessary. 


% | NCLUDE 
%1INCLUDE 
% 1 NCLUDE 
% | NCLUDE 


%EQU 
%EQU 
%EQU 
%EQU 


DCL 
DCL 
DCL 
DCL 
DCL 


DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


DCL 


CP_6_SUBS : 
B_ERRORS_C ; 
XU_MACRO_C 

XUG_ENTRY ; 


AU_MESSAGE 
FORM_FEED 
PRINT_READ_EVENT 


" *AUEV ae 


iota 
—_ 
NO 


CONSOLE_READ_EVENT= 1002 ; 


BSTCB$ 
CUR_PRINTFILE 
DATE 
DCB_NUM 
EVENTS 
2 PRINT_COMP 
2 CONSOLE_COMP 
2 BAD_COMP 
2 ERR 
2 TYC 
EXTENSION 
| 
IDX 
|O_BUFFER 
1O_BUFFER$ 
M$CG 
MSCG$ 
MSSPECIAL 
MSSPECIAL$ 
M$PRINT 
M$PRINTS$ 
PRINT_BUFFER 
PRINT_FILES 
2 NAME_EXT 
2 NAME 

3 STATION 

3 EXTENSION 
2 DCB_NUM 
PRINTNUM 


PTR SYMREF ; - 


SBIN STATIC INIT ( -1) ; 
CHAR ( 8 ) STATIC ; 


UBIN STATIC ; 

STATIC SYMDEF, 
BIT ( 1 ) UNAL 
BIT ( 1 ) UNAL 
1) UNAL 


BIT 


INIT ( %NO# ), 
INIT ( %NO# ), 
INIT ( %NO# ), 


UBIN STATIC INIT (0 ) 


UBIN ; 
SBIN ; 


CHAR ( 200 ) STATIC ; 


PTR STATIC INIT ( ADDR ( 
DCB ; 
PTR ; 
DCB ; 
PTR ; 
DCB ; 
PTR ; 
CHAR ( 200 ) STATIC ; 
( 0:99 ) STATIC, 
CHAR ( 12 ) INIT ( ' '*100 ), 
REDEF NAME_EXT, 
CHAR ( 8 ), 
CHAR ( 4 ), 


UBIN INIT ( 0*100 ) ; 
UBIN STATIC INIT ( 0 ) 


|O_BUFFER ) 


) 


, 


115 


DCL TIME CHAR ( 11 ) STATIC 
DCL EVENT_HANDLER ENTRY ASYNC ; 
DCL INTERRUPT_HANDLER ENTRY ASYNC : 
%B$CGAURD 
( FPTN = BSCGAURD, 

STCLASS = "BASED ( 1O_BUFFER$S 
%BSALT 
%BS$TCB 
%EQU_CG ; 
%F$DCB ; 


%FPT_ACTIVATE 
( FPTN 
STCLASS 
DCB 
DISCONNECT 


%FPT_CGCTL 
( FPTN 
DCB 
CGcpP 


%FPT_CLOSE 
FPTN 
STCLASS 
DCB 


%FPT_CLOSE 
FPTN 
DCB 
DISP 


%FPT_CLOSE 
( FPTN 


FPT_ACTIVATE_CG, 
STATIC, 

M$CG, 

YES ) ;: 


FPT_CGCTL_CG, 
MSCG, 
VLP_CGCP_SPECIAL ) 


FPT_CLOSE_CG, 
STATIC, 
MSCG ) ; 


FPT_CLOSE_DELETE, 
M$PRINT, 
RELEASE ) ; 


= FPT_CLOSE_INPUT, 


, 


, 


%FPT_EVENT 


%FPT_GETDCB 


%FPT_INT 


%FPT_OPEN 


%FPT_OPEN 


( 


( 


( 


( 


DISP 


FPTN 
UENTRY 


FPTN 
DCBNAME 
DCBNUM 


FPTN 
UENTRY 


FPTN 
STCLASS 
ACCT 
ASN 

AU 

CTG 
DcB 
EXIST 
FUN 
NAME 
Qiss 
SCRUB 
SETSTA 


FPTN 
STCLASS 
ACCT 
ASN 

DCB 

FUN 
NAME 
SCRUB 


| | 


ioueou nt tot tt 


SAVE ) ; 


FPT_EVENT, 
EVENT_HANDLER ) ; 


FPT_GETDCB, 
VLP_NAME_DCB , 
DCB_NUM ) ; 


= FPT_INT, 


INTERRUPT_HANDLER 


FPTOPEN_CG, 
CONSTANT, 
VLPACCT, 
COMGROUP , 
YES, 

YES, 

MSCG, 
OLDFILE, 
CREATE, 
VLPNAME , 
YES, 

YES, 
VLPSETSTA_AU ) ; 


FPTOPEN_SPECIAL, 
CONSTANT , 
VLPACCT, 
COMGROUP , 
MSSPECIAL, 
UPDATE, 

VLPNAME , 

YES, 


) 


, 


%FPT_OPEN 


%FPT_OPEN 


%FPT_READ 


%FPT_READ 


%FPT_READ 


SETSTA 


FPTN 
ASN 
EXIST 
FUN 
NAME 
ORG 
SCRUB 


FPTN 
ASN 
DCB 
FUN 
NAME 
ORG 
SCRUB 


FPTN 
BUF 

DCB 
EVENT 
STATION 
WAIT 


FPTN 
BUF 

DcB 
STATION 


FPTN 
BUF 
DCB 


oi uw tow a 


VLPSETSTA_SPECIAL ) 


FPT_OPEN_INPUT, 
FILE, 

NEW ILE, 
CREATE, 
VLP_NAME_PRINT, 
CONSEC, 

YES ) ; 


FPT_OPEN_OUTPUT, 
FILE, 
M$PRINT, 

IN, 
VLP_NAME_PRINT, 
CONSEC, 

YES ) ; 


FPT_READ_CG, 
|1O_BUFFER, 

MSCG, 
%PRINT_READ_EVENT, 
VLP_STATION, 
NO ) ; 


FPT_READ_SPECIAL, 
|O_BUFFER, 
MSSPECIAL, 

VLP_STAT ION_SPECIAL 


FPT_READ_OUTPUT , 
PRINT_BUFFER, 
M$PRINT ) ; 


, 


) 


%FPT_RELDCB 
( 


%FPT_WAIT 
( 


%FPT_WRITE 


%FPT_WRITE 
( 


%VLP_CGCP 


%VLP_CGCP 


%VLP_NAME 


%VLP_NAME 


FPTN 


FPTN 
STCLASS 
UNITS 


FPTN 
STCLASS 
BUF 
DCB 
STATION 


FPTN 
BUF 


FPTN 
CONMSG 
DCBCONAU 
DCBCONWA 
MINPG 

RAS 
TERMCONAU 
TERMCONNAU 


FPTN 
CONMSG 


FPTN 
LEN 


FPTN 


FPT_RELDCB ) ; 


FPTWAIT_ASECOND, 
CONSTANT, 
1); 


FPT_WRITE_CG, 
STATIC, . 
PRINT_BUFFER, 
MSCG, 

VLP_STAT |ON_TERM 


FPT_WRITE_INPUT, 
1O_BUFFER ) ; 


VLP_CGCP_OUTSYM, 
YES, 


VLP_CGCP_SPECIAL, 
NO ) ; 


VLP_NAME_DCB, 
31); 


VLP_NAME_PRINT, 


) 


, 


LEN 


%VLP_NAME 


(_ FPTN 
STCLASS 
NAME 


%VLP_ACCT 


/* 


‘ea: 


%VLP_SETSTA 
( 


FPTN 
STCLASS 


, ACCT 


FPTN 
STCLASS 
MYSTAT ION 


%VLP_SETSTA 


( FPTN 
STCLASS 
MYSTAT ION 


%VLP_STAT ION 


( FPTN 
STCLASS 


%VLP_STAT ION 


( FPTN 


%VLP_STAT ION 


( FPTN 
EOF NONE 
MSGTYP 


%VLP_STAT |ON 


( FPTN 


31): 


VLPNAME , 
CONSTANT, 
"INTERNALS_CG' ) ; 


VLPACCT, 
CONSTANT 
‘LJSHOST' 


VLPSETSTA_AU, 
CONSTANT, 
'AU' ) ; 


VLPSETSTA_SPECIAL, 
CONSTANT, 
"SPECIAL’ ) 


VLPSSTATION, 
BASED ) ; 


VLP_STATION ) ; 


VLP_STATION_SPECIAL, 


YES, 
"PRINT “) 


VLP_STATION_TERM ) 


272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 


%VLP_STAT ION 


( FPTN = VLP_STATION_DCB ) 
%XUG_GETCMD 
(| NAME = XUGGETCMD, 
STCLASS = CONSTANT ) 
%EJECT ; 
/* 


Set break control. 
*/ 


CALL M$INT ( FPT_INT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 


M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 
M$PRINT$ = DCBADDR ( DCBNUM ( M$PRINT ) ) ; 
M$SPECIAL$ = DCBADDR ( DCBNUM ( M$SPECIAL ) ) 


/* 
Create a new comgroup and modify its control parameters. 
The first CGCTL specifies CONMSG=NO so the SPECIAL station can connect 
without requiring activation. After that, another CGCTL is done specifying 
the normal parameters that we should use. 

*/ 


CALL M$OPEN ( FPTOPEN_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT : END ; 

CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 
CALL M$SOPEN ( FPTOPEN_SPECIAL ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END : 
FPT_CGCTL_CG.CGCP_ = VECTOR ( VLP_CGCP_OUTSYM ) ; 

CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 


/* 
Set event control. 
*/ 
CALL MSEVENT ( FPT_EVENT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 


/* 


311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 


sak 


Sta 


rt the first no-wait read. 


CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END : 


/* 


*/ 


Start normal operation of getting PRINT files and printing them if possible. 


DO WHILE %YES# ; 


DO 


INHIBIT 


DO WHILE EVENTS.PRINT_COMP ; 


- %E JECT 
- PREPARE_PRINT_RECORD : PROC ALTRET 


/* 


*/ 


CALL PROCESS_READ_EVENT ; 
EVENTS.PRINT_COMP = %NO# ; 


JO_LBUFFER = ' ' ; 

CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT : END 
END ; 
1F ( VLP_LSTATION_TERM.STATION# ~= ' ' ) THEN DO ; 


CALL PREPARE_PRINT_RECORD 
WHENRETURN DO ; 


CALL MSWRITE ( FPT_WRITE_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT 


END ; 
END ; ELSE DO ; 


END 


, 


Puts a record in the buffer to send to the 
that are ready to be printed. 


"printer", 


if we have any files 


, 


CALL MSWAIT ( FPTWAIT_ASECOND ) WHENALTRETURN DO ; CALL ERROR_EX!IT ; END 


END 


350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 


/* 


If there isn't a print file currently open, then try to find one and open 
it. ALTRETURN if none exist. 


x] 


IF ( CUR_PRINTFILE < 0 ) THEN DO : 
CALL GET_PRINTABLE_INDEX ( CUR PRINTFILE ) : 
IF ( CUR_PRINTFILE < 0 ) THEN DO ; 
ALTRETURN :; 
END ; ELSE DO ; 
CALL CONCAT ( VLP_NAME_PRINT.NAME#, 
"PRINT: ', 
PRINT_FILES.NAME_EXT ( CUR_PRINTFILE ) ) 
CALL INDEX ( 1, 
VLP_NAME_PRINT . NAME#, 
0 
VLP_NAME_PRINT.L¥ = | 
CALL MSOPEN ( FPT_OPEN OUTPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT : END 
END 
END ; 


/* 
Put a record in the buffer. When at EOF, send a formfeed and delete 
the file. 

Bef 


CALL M$READ ( FPT_READ_OUTPUT ) 
WHENALTRETURN DO ; 
IF ( BSTCB$->B$TCB.ALT$->B$ALT.ERR.CODE = %ESEOF ) THEN DO ; 
PRINT_BUFFER = BINASC ( %FORM_FEED ) ; 
FPT_WRITE_CG.BUF_.BOUND = 0 ; 
CALL M$CLOSE ( FPT_CLOSE_DELETE ) WHENALTRETURN DO ; CALL ERROR_EXIT 
PRINT_FILES.NAME.STATION ( CUR_PRINTFILE ) = ' : 
CUR_PRINTFILE = -1 ; 
RETURN ; 
END ; ELSE DO ; 


END 


CALL ERROR_EXIT ; /* DOES NOT RETURN */ 
END ; 

END ; 
FPT_WRITE_CG.BUF_.BOUND = M$PRINT$->FSDCB.ARS# - 1 ; 


RETURN ; 
END PREPARE_PRINT_RECORD ; 


%EJECT ; 
PROCESS_READ_EVENT : PROC ; 


/* 
The message just read could be an AU event or a record to be written into 
one of the print files being created. Take care of it appropriately. 

*:/ 


DCL EOF BIT (1) ; 


|F ( M$CG$->F$DCB.LASTSTA$-—>VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO ; 
DO CASE BSCGAURD.EVENT ; 


/* 
This is a new DCB station. This station needs to be activated so 
that it can start shoveling data into the comgroup. An entry is 
then built in the print file table containing the station name and 
file extension, along with a non-zero DCB number. This number 
signifies that this print file is not complete (it can't be printed 
yet). The DCB number is also necessary when writing records to the 

file. 


CASE ( %CG_DOPN# ) ; 
VLP_STAT 1ON_DCB. STAT | ON# BSCGAURD.STATION ; 
FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STATION_DCB ) ; 
CALL MSACTIVATE ( FPT_ACTIVATE_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT 
CALL GET_NEW_INDEX ( IDX ) ; 
PRINT_FILES.NAME.STATION ( IDX ) = BSCGAURD.STATION ; 
EXTENSION = EXTENSION + 1 ; 


, 


END 


/* 


ues 


CALL BINCHAR ( PRINT_FILES.NAME.EXTENSION ( IDX ), 
EXTENSION ) ; 
CALL M$GETDCB ( FPT_GETDCB ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
PRINT_FILES.DCB_NUM ( IDX ) = DCB_NUM : 
CALL CONCAT ( VLP_NAME_PRINT.NAME#, 
"PRINT: ', 
PRINT_FILES.NAME_EXT ( IDX ) ) ; 
CALL INDEX ( I, 
VLP_NAME_PRINT.NAME#, 
Oo): : 
VLP_NAME_PRINT.L# = | ; 
FPT_OPEN_INPUT.V.DCB# = DCB_NUM ; 
CALL M$OPEN ( FPT_OPEN_INPUT ) WHENALTRETURN DO :; CALL ERROR_EXIT ; END 


This event signifies that the DCB station is finished writing data 
into the comgroup and is going away. The records in the comgroup 
that haven't been processed yet are read by the SPECIAL station 
using WAIT I1O and EOFNONE and written to the print file. The 

print file is then closed and the DCB number in the print file table 
is set to zero to signal that this file is ready to print. 


The reason that the DCB stations must be activated upon connection 

to the comgroup is now apparent - if this closing station inmediately 
reconnected and started writing records, we would put the new data 

is this old print file. 


CASE ( %CG_DCLS# ) ; 


CALL GET_STATION_INDEX ( aaa cag a 
IDX 
IF ( IDX >= 0 ) THEN DO ; 
VLP_STATION_SPECIAL .STATION# = PRINT_FILES.NAME.STATION ( IDX ) ; 
FPT_WRITE_INPUT.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) ; 
EOF = %NO# ; 
DO WHILE NOT EOF ; 
CALL M$READ ( FPT_READ_SPECIAL ) 
WHENALTRETURN DO ; 


467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 


IF ( BSTCB$->BSTCB.ALT$->BSALT.ERR.CODE = %E$EOF ) THEN DO ; 


EOF = %YES# ; 
END ; ELSE DO :; 
CALL ERROR_EXIT ; /* DOESN'T RETURN */ 
END ; 
END ; 
IF NOT EOF THEN DO ; 
FPT_WRITE_INPUT.BUF_.BOUND = M$SPECIAL$->F$DCB.ARS¥ - 1 ; 


END 
END ; . 
FPT_CLOSE_INPUT.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) : 

CALL M$CLOSE ( FPT_CLOSE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT 
FPT_RELDCB.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) : 


CALL M$RELDCB ( FPT_RELDCB ) WHENALTRETURN DO :; CALL ERROR_EXIT ; END 


PRINT_ FILES.DCB_NUM ( IDX ) = 0 ; 
END 


/* 
A terminal station, "printer", wants to connect. Activate it and 
keep track of its station name so we can print files. 

*/ 


CASE ( %CG_TCON# ) ; 
VLP_STATION_TERM.STATION# = BSCGAURD.STATION ; 
FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STATION_TERM ) ; 
CALL M$ACTIVATE ( FPT_ACTIVATE_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT 


/* 
A terminal station, "printer", just disconnected. Save the print 
file if it’s only partially printed and blank the terminal name so 
we don’t try to print any files. 

*/ 


CASE ( %CG_TDSC# ) ; 
IF ( VLP_STATION_TERM.STATION# = B$CGAURD.STATION ) THEN DO : 
VLP_STATION_TERM.STATION# = ' ' ; 
IF M$PRINT$—>FSDCB.FCD# THEN DO ; 
FPT_CLOSE_|INPUT.V.DCB# = DCBNUM ( M$PRINT ) 


, 


CALL MSWRITE ( FPT_WRITE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT 


END 


, 


END 


, 


, 


END 


’ 


END 


END 


CALL M$CLOSE ( FPT_CLOSE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 


END ; 
END ; 
/* 
Someone just typed break at the terminal. Deactivate the station 
and close a partially printed file so it can be reprinted. 
*/ 


CASE ( %CG_TBRK# ) ; 
FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STATION_TERM ) : 
CALL M$DEACTIVATE ( FPT_ACTIVATE_CG ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END 
VLP_STATION_TERM.STATION# = ' ' ; 
IF MSPRINT$-—>F$DCB.FCD# THEN DO : 
FPT_CLOSE_!INPUT.V.DCB# = DCBNUM ( M$PRINT ) ; 
CALL M$CLOSE ( FPT_CLOSE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT : END 
END ; 
CASE ( ELSE ) ; 
/* 
Ignore the other possible AU events. 
my: 


ELSE DO ; 


This is a record to be written to a print file. 


CALL GET_STATION_INDEX ( M$CG$->F$DCB.LASTSTA$-—>VLPS$STATION.STATION#, 


IDX ) 


IF ( IDX >= 0 ) THEN DO ; 


FPT_WRITE_INPUT.V.DCB# = PRINT_FILES.DCB_NUM ( IDX ) ; 
FPT_WRITE_INPUT.BUF_.BOUND = M$CG$->F$DCB.ARS# - 1 ; 
CALL MSWRITE ( FPT_WRITE_INPUT ) WHENALTRETURN DO ; CALL ERROR_EXIT ; END ; 


END PROCESS_READ_EVENT ; 
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565 
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567 
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- %EJECT ; 
- GET_NEW_INDEX : PROC ( IDX ) ; 


/* 
Get an unused entry in the print file table. Returns -1 if none 
are available. 


*/ 
IDX SBIN ; 
| UBIN ; 
1=0; 
DO WHILE ( | <= PRINTNUM ) AND ( PRINT_FILES.NAME.STATION ( | ) ~= ' '° ) 
leftleis: 
END ; 
IF ( | = PRINTNUM ) AND ( PRINTNUM <« 100 ) THEN DO : 
PRINTNUM = PRINTNUM + 1 ; 
IDX = I ; 
END ; ELSE IF ( 1 « PRINTNUM ) THEN DO 
IDX = I: 
END ; ELSE DO ; 
IDX = -1 ; 
END ; 
RETURN 


END GET_NEW_INDEX ; 


%EJECT ; 
GET_PRINTABLE_INDEX : PROC ( IDX ) ; 


/* 
Get the index of a printable file.- name not blank and DCB number zeroed. 
-1 is returned if none exist. 

a | 


584 - : 

585 - DCL IDX SBIN ; 

586 - 

587 - DCL I UBIN ; 

588 - 

589 - 

590 - 1=0; 

591 - IDX = -1 ; 

592 - DO WHILE ( | «<= PRINTNUM ) AND ( IDX = -1) ; 
593 - IF ( PRINT_FILES.NAME.STATION ( | ) ~= ' ' ) AND ( PRINT_FILES.DCB_NUM ( | ) = 0 ) THEN DO : 
594 - IDX = I ; ; 

595 - END ; 

596 - f= t+ 41 

597 - END ; 

598 - 

599 - RETURN 

600 - 

601 - END GET_PRINTABLE_INDEX ; 

602 - 

603 - %EJECT ; 

604 - GET_STATION_INDEX : PROC ( STATION, IDX ) 

605 - 

606 - Ls. 

607 - Get the index of the given station. -1 is returned if it doesn't exist. 
608 - */ 

609 - 

610 - DCL STAT ION CHAR ( 8 ) ; 

611 - DCL IDX SBIN ; 

612 - 

613 - DCL | UBIN 

614 - 

615 - 

616 - 1 =0 ; 

617 - IDX = -1 ; 

618 - DO WHILE ( | «= PRINTNUM ) AND ( IDX = -1) ; 
619 - IF ( STATION = PRINT_FILES.NAME.STATION ( | ) ) AND ( PRINT_FILES.DCB_NUM ( I ) ~= 0 ) THEN D 
620 - IDX = | ; 

621 - END ; 

622 - f= t+1; 


623 
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629 
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631 
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633 
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636 
637 
638 
639 
640 
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643 
644 
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661 


END ; 
RETURN ; 


END GET_STATION_INDEX ; 


%EJECT ; 
ERROR_EXIT : PROC ; 


1F ( VLP_STATION_TERM.STATION# ~= ' ‘' ) THEN DO ; 
FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STATION_TERM ) ; 
CALL M$SDEACTIVATE ( FPT_ACTIVATE_CG ) WHENALTRETURN DO ; END 


END ; 


CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 


CALL M$MERC ; 
CALL MSEXIT ; 


END ERROR_EXIT ; 


a 


END OUTSYM_AU 


%EOD ; 
INTERRUPT_HANDLER PROC ASYNC 
/* 
NAME : INTERRUPT_HANDLER 
PURPOSE : Takes care of interrupts caused by typing break at the AU's 
terminal. 


DESCRIPTION: Closes all DCB’s and exits. 


tae 


%\INCLUDE CP_6 ; 

%INCLUDE CP_6_SUBS 
%\INCLUDE XU_MACRO_C 
%\INCLUDE XUG_ENTRY 


, 


662 - %XUG_GETCMD 


663 - (| NAME = XUGGETCMD , 
664 - STCLASS = CONSTANT ) ; 
665 - 


666 - %EJECT ; 

667 - CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 

668 - CALL M$EXIT ; 

669 - 

670 - END INTERRUPT_HANDLER ; 

671 - 

672 - %EOD ; 

673 - EVENT_HANDLER : PROC ASYNC ; 

674 - 

675 - /* 

676 - NAME : EVENT_HANDLER 

677 - PURPOSE : Takes care of events caused by IO completion. 
678 - DESCRIPTION: Sets the appropriate flags and returns. 
679 - */ 

680 - 

681 - 

682 - %INCLUDE CP_6 ; 

683 - %INCLUDE CP_6_SUBS ; 


684 - 

685 - %BSTCB ; 

686 - 

687 - %BSMNVIO 

688 - (_ STCLASS = "BASED ( BSNWIOS )”" ) ; 

689 - 

690 — %EQU PRINT_READ_EVENT = 1001 ; 

691 - %EQU CONSOLE_READ_EVENT= 1002 

692 - 

693 - DCL BSNWIOS PTR ; 

694 - DCL BSTCB$ PTR SYMREF ; 

695 - DCL 1 EVENTS SYMREF , 

696 - PRINT_COMP BIT ( ) UNAL 

697 - CONSOLE_COMP BIT ) UNAL, 
) UNAL, 


699 - 
700 - 


ERR BIT 


2 
2 ( 
698 - 2 BAD_COMP BIT ( 
2 ( 
2 TYC BIT ( 


701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
716 
716 
717 
718 
719 


%EJECT ; 
DO INHIBIT 


BSNWIO$S = BSTCB$->BS$TCB.STK$ 
DO CASE ( BSNWIO.EVID ) 
CASE ( %PRINT_READ_EVENT ) 


EVENTS.PRINT_COMP = %YES# 
CASE ( %CONSOLE_READ_EVENT ) 
EVENTS .CONSOLE_COMP = %YES# 


CASE ( ELSE 


EVENTS . BAD_COMP 


END :; 
EVENTS.ERR 
EVENTS. TYC 
END ; 


RETURN ; 


END EVENT_HANDLER 


) 


, 


, 


BSNWIO.ERR 
BSNWIO.TYC 


, 


*YES# 


, 


, 


, 


, 


/* not currently implemented */ 


17:34 AUG 29 '85 


OMONODOAAWN — 


/*M* INT_CGEX_SI2 internals class comgroup example - SI2 of 2 */ 
DCB_PRINT PROC MAIN ; 
/* 
NAME : DCB_PRINT 
PURPOSE : Copies the file specified to the OUTSYM comgroup. 
DESCRIPTION: The DCB station opens to the comgroup using its sysid as its 
name. It opens the print file specified in the CCBUF: 
"!INT_CGLAB_2. (fid)” and writes those records to the comgroup. 
*/ 
% | NCLUDE CP_6 ; 
% | NCLUDE CP_6_SUBS ; 
% | NCLUDE B_ERRORS_C 
% | NCLUDE XUX$ INTERFACE_M ; 
% | NCLUDE BSJIT ; 
DCL BSTCB$ PTR SYMREF 
DCL BSJITS$ PTR SYMREF ; 
DCL EOF BIT ( 1.) STATIC INIT ( '0'B ) 
DCL |O_BUFFER CHAR ( 200 ) STATIC 
DCL JUNK CHAR ( 12 ) STATIC ; 
DCL M$CG DCB ; 
DCL M$CG$ PTR ; 
DCL M$PRINT DCB ; 
DCL MSPRINTS PTR ; 
DCL POS 1 UBIN ; 
DCL XUX$GETL INE ENTRY ( 1 ) ALTRET ; 
DCL XUX$CLEANUP ENTRY ALTRET ; 
%B SALT 
%B$7TCB ; 


%F $DCB 


INT_CGLAB_S12 


%FPT_CLOSE 


%FPT_CLOSE 


%FPT_FID 


%FPT_OPEN 


%FPT_OPEN 


( 


( 


FPTN 
STCLASS 
DCB 


FPTN 
STCLASS 
DCB 


FPTN 
ACCT 
ASN 
NAME 
PASS 
RES 
RESULTS 
SN 
WSN 


FPTN 
STCLASS 
ACCT 
ASN 

DCB 

FUN 
NAME 
SCRUB 
SETSTA 


FPTN 
STCLASS 
ACCT 
ASN 

DcB 


FPTCLOSE_CG, 
CONSTANT, 
MSCG ) ; 


FPTCLOSE_PRINT, 
CONSTANT , 
M$PRINT ) 


FPT_FID_PRINT, 
VLP_ACCT_PRINT, 
JUNK, 
VLP_NAME_PRINT, 
JUNK , 

JUNK , 

JUNK , 

JUNK, 

JUNK ) ; 


FPTOPEN_CG, 
CONSTANT , 
VLPACCT, 
COMGROUP , 
MSCG, 

UPDATE, 
VLPNAME , 

YES, 
VLP_SETSTA_DCB 


FPTOPEN_PRINT, 
CONSTANT, 
VLP_ACCT_PRINT, 
FILE, 

MSPRINT, 


) 


, 


FUN 
NAME 
ORG 
SCRUB 
%FPT_READ 
( FPTN 
BUF 
DCB 
%FPT_WRITE 
( FPTN 
BUF 
DCB 
STATION 
%VLP_ACCT 
( FPTN 
STCLASS 
/* 
, ACCT 
*/ 
%VLP_ACCT 
( FPTN 
%VLP_NAME 
( FPTN 
STCLASS 
NAME 
%VLP_NAME 
( FPTN 
%VLP_SETSTA 
(_ FPTN 


%VLP_STAT ION 


IN, 
VLP_NAME_PRINT, 
CONSEC, 

YES ) 


FPT_READ_PRINT, 
1O_BUFFER, 
M$PRINT ) ; 


FPT_WRITE_CG, 
1O_BUFFER, 
MSCG, 
VLPSTATION_AU ) 


VLPACCT , 
CONSTANT 
"LJSHOST ' 


VLP_ACCT_PRINT ) 


VLPNAME , 
CONSTANT, 
'INTERNALS_CG' ) 


VLP_NAME_PRINT ) 


VLP_SETSTA_DCB ) 


116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 


( FPTN = VLPSTATION_AU, 
STCLASS = CONSTANT, 
ANYDCB = YES, 
MSGTYP = 'PRINT a ae 

%XUX$PARAM_NO_PARSE 

(| NAME = XUX_CCBUF, 
STCLASS = STATIC, 
BUFFER = |O_BUFFER, 
DISP_ONLY = YES ) ; 


%EJECT : 
M$CG$ = DCBADDR ( DCBNUM ( MSCG ) ) ; 
M$PRINT$ = DCBADDR ( DCBNUM ( M$PRINT ) ) ; 


/* 
Use SYSID as station name. 
*/ 


CALL BINCHAR ( VLP_SETSTA_DCB.MYSTATION#, 
BSJIT$->BSJIT.SYSID ) ; 


/* 
Get the name of the file to print out of the CCBUF and open it. 
*/ 


DO UNTIL ( XUX_CCBUF.CMD_LEN > 0) ; 
CALL XUX$GETLINE ( XUX_CCBUF ) ALTRET ( XIT ) ; 
END ; 
CALL XUX$CLEANUP : 
CALL INDEX ( POS1, 
2 ae 
1O_BUFFER, 
1); 
FPT_FID_PRINT.TEXTFID_ = VECTOR ( SUBSTR ( IO _BUFFER, 
1, 
POS1 - 1) ) ; 
CALL M$FID ( FPT_FID_PRINT ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
CALL M$OPEN ( FPTOPEN_PRINT ) ALTRET ( REPORT_ERROR_AND_EXIT ) 


/* 
Open the comgroup. 
sel 


CALL MSOPEN ( FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 


/* 
Read the messages from the print file and send them to the AU station. 
*7. 


DO WHILE NOT EOF ; 


CALL M$READ ( FPT_READ_PRINT ) 
WHENALTRETURN DO ; 
IF ( BSTCB$->B$TCB.ALT$->BSALT.ERR.CODE = %ESEOF ) THEN DO 
EOF = %*YES# ; 
END ; ELSE DO ; 
GOTO REPORT_ERROR_AND_EXIT ; 
END ; 
END ; 
1F NOT EOF THEN DO ; 
FPT_WRITE_CG.BUF_.BOUND = M$PRINT$-—>FS$DCB.ARS# - 1 ; 
CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
END ; 


END 


CALL MSCLOSE ( FPTCLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EXIT ) ; 
CALL MSCLOSE ( FPTCLOSE_PRINT ) ALTRET ( REPORT_ERROR_AND_EXIT ) 
CALL M$SEXIT ; 


REPORT_ERROR_AND_EXIT: ; 
IF M$CG$->F$DCB.FCD# THEN DO ; 
CALL M$CLOSE ( FPTCLOSE_CG ) ; 
END ; 
IF M$SPRINT$-—>F$DCB.FCD# THEN DO ; 
CALL M$CLOSE ( FPTCLOSE_PRINT ) ; 
END ; 


194 
195 
196 
197 
198 
199 


i 


CALL M$MERC 


XIT: ; 
CALL M$EXIT 


END DCB_PRINT ; 


, 


LAB 5 
ASSIGNMENT 


LAB #5 [COMMAND PROCESSORS] 


SCENARIO: 
- You managed to hide the System Support 
Manual but the head of the computer science 
department has just read the System Programmer 
Guide. He's absolutely sure that the computer 
science department can benefit from the security 
a command program could provide. Who are you 
to argue? As an exercise, you decide to write 
your own simple command program to learn the 
"ins and outs” of command program creation. 


LAB #5 [COMMAND PROCESSORS] 
PROBLEM: = 


1. Make a command program, called INTCPnn 
where nn is your group number. 


This command program will have several 
functions. 


| 
a. It will prompt with a ‘#’. 


LAB #5 [COMMAND PROCESSORS] 


b. It will recognize when control-Y or break 

is hit. If control-Y is struck, it will prompt 
with '##', If break is struck, it will "ignore" 

it (i.e. just return). When the '##' is issued, 

it will accept two responses: DELTA or GO. (Do_ 
not use the parser, just accept th string and do 
a sized compare against a literal). 


LAB #5 [COMMAND PROCESSORS] 


c. You will write a small program, called, 
INTCPTEST. This program will simply wait 
(M$READ from the terminal) for you to strike 
control-Y so that you can test step b. Your 
command program will have to know how to call 
this program from you account. 


LAB #5 [COMMAND PROCESSORS] 


d. Your command program will also accept "PCL" 
as a command, and call up PCL.:SYS when typed in. 
This command will only be legal at jobstep (the 

'#" prompt, not the '##' prompt). 


e. Your command program will also accept "IBEX" 
as a command, and will exit to IBEX when "IBEX" 
is typed in. This command is only legal at 
jobstep. | 


LAB #5 [COMMAND PROCESSORS] 


2. Install your command program with SPIDER. 


3. Check it out. 
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INTERNALS CLASS 

COMMAND PROCESSORS LAB 

1) Make a command processor, called: 
INTCPnn 

where 


mn is your group number. 


This command processor will have several functions: 
a) It will prompt with a ’#’. 


b) It will recognize when control-Y or break is hit. If control-yY 
is struck, it will prompt with ‘##’. If break is struck, it will 
“ignore” it...i.e. just return. When the ’##’ is issued, it will 
accept two responses: DELTA or GO. (Do not use the parser, just 
accept the string and do a sized compare against a literal). 


Cc) You will write a small program, called 

INTCPTEST. 

This program will simply wait (M$READ from the terminal) for you to 
strike control-Y so that you can test step b. Your command program 
will have to know how to call this program from your account. 

d) Your command program will also accept "PCL" as a command, and 
call up PCL.:SYS when typed in. This command will only be legal at 
jobstep (the ’#’ prompt, not the ’##’ prompt). 

e) Your command program will also accept "IBEX" as a command, and 


will exit to IBEX when "IBEX" is typed in. This command is only 
legal at jobstep. 


2) Install your command program with SPIDER. 


3) Check it out. 


LAB 5 
ANSWER 
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1 - !JOB WSN=UPSTAIRS 
2 - !RES MEM=300,TIME=2 

3 - !PL6 LABS_CP_SI OVER LAB5_CP_OU6(LS,SR(.:LIBRARY) ,SCHEMA) 

4 - !LINK LAB5_CP_OU6 OVER INTCP(MAP(VALUE ,NAME) ,NOSH,SYS, 

5 - UNSAT=:LIB_SYSTEM. :SYS, TCB=3,PRIV(JIT)) 

6 - !PL6 LAB5_CPTEST_SI OVER LAB5_CPTEST_OU6(LS,SR(.:LIBRARY) , SCHEMA) 
7 - !LINK LAB5_CPTEST_OU6 OVER INTCPTEST 

8 - !SPIDER 

9 - DEL INTCP 


10 - IN INTCP,CP FROM INTCP.CKWHOST 
11 - L INTCP 

12 - END 

13 - !C LAB5_JCL TO LP(K) 
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1 - U40CPTEST: PROC MAIN: 

2 - %INCLUDE CP_6; 

3 - %BSTCB; 

4 - %BS$ALT: 

5 - %|INCLUDE B_ERRORS_C; 

6 - DCL M$SI DCB; 

7 - DCL BSTCB$ PTR SYMREF: 

8 - %FPT_READ (FPTN=FPT$READ, STCLASS=CONSTANT ,DCB=M$S1 ,BUF=BUFFER) : 
9 - DCL BUFFER CHAR( 120) STATIC: 

10 - 

11 - REREAD: ; 

12 - CALL M$READ(FPTSREAD) 

13 - WHENALTRETURN DO; 

14 - IF BSTCB$ -> BSTCB.ALT$ ->» B$ALT.ERR.CODE = %ES$EOF 
15 - THEN GOTO XIT; 

16 - ELSE GOTO REREAD; 

17 - END; 

18 - GOTO REREAD; 

19 - XIT: ; 
20 - CALL M$EXIT; 


21 - END U40CPTEST; 
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- %FPT_READ (FPTN=FPT$READ, STCLASS=CONSTANT, DCB=M$UC) : 

- %FPT_READ (STCLASS=AUTO) :; 

- %FPT_WRITE (FPTN-WRITE_SYNERR, STCLASS=CONSTANT, BUF=SYNERR, DCB=M$UC) : 

10 - DCL SYNERR CHAR(O) CONSTANT INIT('U40CP can''t do that.'): 

11 - %FPT_PROMPT (FPTN=PROMPT_SINGLE, PROMPT=SINGLE_SPLAT, STCLASS=CONSTANT, VFC=YES): 
12 - %FPT_PROMPT (FPTN=PROMPT_DOUBLE, PROMPT=DOUBLE_SPLAT, STCLASS=CONSTANT, VFC=YES): 
13 - DCL SINGLE_SPLAT CHAR(2) CONSTANT INIT('p#'): 

14 — DCL DOUBLE_SPLAT CHAR(3) CONSTANT INIT('p##’); 

15 - %FPT_CPEXIT (FPTN=FPT$CPEXIT, STCLASS=CONSTANT) : 

16 - %FPT_CPEXIT (STCLASS=""); 

17 - %VLP_ACCT (FPTN=ACCT_SYS, ACCT=':SYS ' | STCLASS=CONSTANT) ; 

18 - %VLP_NAME (FPTN=NAME_DELTA, NAME='DELTA’, STCLASS=CONSTANT): 

19 - %VLP_NAME (FPTN=NAME_PCL, NAME='PCL', STCLASS=CONSTANT) : 

20 - %VLP_NAME (FPTN=NAME_U40CPTEST, NAME='U40CPTEST’, STCLASS=CONSTANT) : 

21 —- %VLP_NAME (FPTN=NAME_IBEX, NAME='IBEX', STCLASS=CONSTANT) : 

22 - %FPT_ERRMSG (FPTN=FPTSERRMSG, STCLASS=CONSTANT, SOURCE=PASS, OUTDCB1=M$UC) : 

23 - %FPT_ERRMSG (STCLASS=AUTO) : 

24 - DCL BUFFER CHAR(120): 


1 - U40CP: PROC MAIN: 

2 - %INCLUDE CP_6; 

3 - %INCLUDE BSJIT; 

4 - 

5 - DCL BSJITS PTR SYMREF ; 
6 - DCL BSTCBS PTR SYMREF ; 
7 

8 

9 


25 - %FS$DCB; 

26 - %BSTCB: 

27 - %BSALT: 

28 - 

29 - FPT_CPEXIT = FPT$CPEXIT; FPT_CPEXIT.V_ = VECTOR (FPT_CPEXIT.V): 
30 - FPT_READ = FPT$READ; FPT_READ.V_ = VECTOR (FPT_READ.V): 

31 - FPT_READ.BUF_ = VECTOR (B$JIT.CCBUF): 

32 - FPT_ERRMSG = FPT$ERRMSG; FPT_ERRMSG.V_ = VECTOR (FPT_ERRMSG.V): 
33 - FPT_ERRMSG.BUF_ = VECTOR (BUFFER): 

34 - IF BSJIT.CPFLAGS1 & %CP_JSTEP# THEN DO: 

35 - CALL M$PROMPT (PROMPT_SINGLE) ; 

36 - READ_SINGLE: CALL M$READ (FPT_READ) 


37 - WHENALTRETURN DO; 


FPT_ERRMSG.CODE_ = VECTOR (BSTCB$->B$TCB.ALT$-—>B$ALT.ERR) ;: 
CALL M$ERRMSG (FPT_ERRMSG) ; 
GOTO IBEX; 
END; 
B$J!IT.CCARS = DCBADDR(DCBNUM(M$UC) )->F$DCB.ARS#; 
DO SELECT (SUBSTR(B$JIT.CCBUF ,0,B$J!IT.CCARS) ); 
SELECT ('PCL'):;: 
FPT_CPEX!T.ACCT_ 
FPT_CPEXItT.NAME_ 


VECTOR (ACCT_SYS); 
VECTOR (NAME_PCL) ; 


SELECT(' IBEX'); é 
IBEX: FPT_CPEXIT.ACCT_ = VECTOR (ACCT_SYS); 
FPT_CPEXIT.NAME_ = VECTOR (NAME_IBEX) ; 


SELECT ('U40CPTEST'’ ) 
FPT_CPEXIT.NAME_ 
FPT_CPEXIT.ACCT_ 
FPT_CPEXIT.ACCT_ 


VECTOR (NAME_U4OCPTEST) ;: 
VECTOR (B$JIT.ACCN); 
VECTOR (B$JIT.ACCN); 


SELECT(ELSE); 
CALL M$SWRITE (WRITE_SYNERR) ; 
GOTO READ_SINGLE; 
END; 
CALL MSCPEXIT (FPT_CPEXIT) 
WHENALTRETURN DO; 
FPT_ERRMSG.CODE_ = VECTOR (B$TCB$->B$TCB.ALT$->BSALT.ERR) ; 
CALL M$ERRMSG (FPT_ERRMSG) ; 
FPT_CPEXIT = FPTSCPEXIT; FPT_CPEXIT.V_ = VECTOR (FPT_CPEXIT.V); 
GOTO READ_SINGLE; 
END; 
END; ELSE DO; 
CALL M$PROMPT (PROMPT_DOUBLE) ; 
READ_DOUBLE: CALL M$READ (FPT_READ) ALTRET (QUIT); 
BSJIT.CCARS = DCBADDR(DCBNUM(M$UC) )->FSDCB.ARS#; 
DO SELECT (SUBSTR(BS$JIT.CCBUF ,0,B$JIT.CCARS) ); 
SELECT('DELTA’ ); 
FPT_CPEXIT.DEBUG_ = VECTOR (NAME_DELTA) ; 
FPT_CPEXIT.V.CONT# = ‘'1'B; 


SELECT('GO'); 
FPT_CPEXIT.V.CONT# = '1'B; 


SELECT( 'QUIT'); 
QUIT: FPT_CPEXIT.V.QUIT# = '1'B; 


SELECT (ELSE) ; 

CALL MSWRITE (WRITE_SYNERR) ; 
FPT_CPEXIT.V.CONT# = '1'B; 

END; 

CALL MSCPEXIT (FPT_CPEXIT) 

WHENALTRETURN DO; 
FPT_ERRMSG.CODE_ = VECTOR (B$TCB$->B$TCB.ALT$->BSALT.ERR) ; 
CALL M$ERRMSG (FPT_ERRMSG) ; 


FPT_CPEXIT = FPTSCPEXIT; FPT_CPEXIT.V_ = VECTOR (FPT_CPEXIT.V); 


GOTO READ_DOUBLE ; 
END; 


END; 
END; 


LAB 6 
ASSIGNMENT 


LAB #6 [FPRGS] 


SCENARIO: 

- You have just gotten a prerelease of COO CP-6. 
Being a prerelease, everything doesn’t quite 

work — one thing is ANLZ doesn't know how to 
ANLZ running FEPs yet. You call LADC and are 
told in order to look at running FEPs, you 

need fo do A, B, and C -— click. 


LAB #6 [FPRGS] 
PROBLEM — PART | 


Write a host program that starts an FPRG, 
reads three pieces of information from the 
FPRG — the FEP number, the NODENAME, and 
the SYSID of user number 1, and writes the 
values out. 


LAB #6 [FPRGS] 


The FPRG must M$CVM onto BOBCAT data to get the 
FEP number, the NODENAME, and the pointer to the 
user tables. The pointer to the user tables can 
then be used to get the SYSID of user number 1. 


Run your programs under DELTA, displaying the 
pointer to BOBCAT data and the pointer to the 
user tables. 


LAB #6 [FPRGS] 
PROBLEM — PART Il 


Write a host program what creates three windows 
on your terminal. The host program will read a 
character string from one window and write the 
character string to an FPRG. The FPRG will write 
the reverse character string out in the second 
window. The third window is for DELTA. 


LAB #6 [FPRGS] 


Run your programs under DELTA, displaying the 
character string before it is sent to the FPRG, 
after the FPRG reads it from the host program, 
and the reverse character string before the 
FPRG writes it ouf. 


HINT: See M$LDEV and VLP_WINDOW in the Host 
Monitor Services Manual. 


LAB #6 [FPRGS] 


HINT: See Appendix B of the Fep Programming 
Concepts Manual for a sample FPRG and host 
program. 


HINT: The structure for BOBCAT data is in 
G$BOBCAT_M.:LIBRARY. 


HINT: The structure for the user tables, GSUSER, 
is in GH_SCHD_M.ZZINT 
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FPRGS LAB 

Part I 

Write a host program that starts an FPRG, reads three pieces of 
information from the FPRG - the FEP number, the NODENAME, and the 
SYSID of user number 1, and writes the values out. 

The FPRG must M$CVM onto BOBCAT data to get the FEP number, the 
NODENAME, and the pointer to the user tables. The pointer to the 
user tables can then be used to get the SYSID of user number 1. 


Run your programs under DELTA, displaying the pointer to 
BOBCAT data and the pointer to the user tables. 


HINT: See Appendix B of the FEP Programming Concepts Manual for 
a sample FPRG and host program. 


HINT: The structure for BOBCAT data is in G$BOBCAT_M. :LIBRARY. 
HINT: The structure for the user tables, G$USER, is in GH_SCHD_M.ZZINT 


HINT: The pointer to the user tables cannot be used directly. 


Part II 


Write a host program that creates three windows on your terminal. The 
host program will read a character string from one window and write 
the character string to an FPRG. The FPRG will write the reverse 
character string out in the second window. The third window is 

for DELTA. 


Run your programs under DELTA, displaying the character string before 
it is sent to the FPRG, after the FPRG reads it, and the reverse 
character string before the FPRG writes it out. 


HINT: See M$LDEV and VLP_WINDOW in the Host Monitor Services Manual. 
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— oo 


=DOANODOAAWND = 


! JOB WSN=UPSTAIRS 
'RES MEM=300, TIME=2 


!PL6 LAB6_HOST_SI1 OVER LAB6_HOST_OU61(LS,SR(. 


!LINK LAB6_HOST_OU61 OVER LAB6:H1 


!PL6 LAB6_FPRG_SI1 OVER LAB6_FPRG_OU61(LS,SR(. 


'FEPLINK LAB6_FPRG_OU61 OVER LAB6:F1 


{PL6 LAB6_HOST_S!|2 OVER LAB6_HOST_OU62(LS,SR(. 


'LINK LAB6_HOST_OU62 OVER LAB6:H2 


!PL6 LAB6_FPRG_S|2 OVER LAB6_FPRG_OU62(LS,SR(. 


'FEPLINK LAB6_FPRG_OU62 OVER LAB6:F2 
!'C LAB6_JCL TO LP(K) 


: LIBRARY) , SCHEMA) 
: LIBRARY) , SCHEMA) 
: LIBRARY) , SCHEMA) 
: LIBRARY) , SCHEMA) 
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- LAB6_FPRG_SI1: PROC MAIN; 

- %|INCLUDE LCP_6; 

- %|INCLUDE G$BOBCAT_M; 

- %G$BOBCAT (FPTN=G$BOBCAT , STCLASS= "BASED (G$DS4$)"); 
%\NCLUDE GM_VIRTUAL_E; 

- %\INCLUDE GH_SCHD_M; 

- %GSUSER (FPTN="G$USER(0:0)”" ,STCLASS=BASED) ; 

- DCL G$DS4$ PTR SYMREF READONLY; 

- DCL G$BOBCATPTR UBIN(32) CONSTANT INIT(%GM_BOBCAT_BASE) ; 
10 - DCL G$BOBCAT$ REDEF G$BOBCATPTR PTR; 

11 - DCL M$HOST DCB; 

12 - %FPT_CVM(USERSEG=USEG, FROMSEG=FSEG, PAGES=256); 

13 - %VLP_SEGMENT(FPTN=USEG, PAGES=256); 

14 - %VLP_SEGMENT(FPTN=FSEG, PAGES=256) ; 

15 - %FPT_WRITE (FPTN=HOST_WRITE, BUF=HOST_BUF, DCB=M$HOST, STCLASS=CONSTANT) ; 


OODONOOAARWND — 
I 


16 - 

17 - DCL 1 HOST_BUF STATIC, 

18 - 2 FEP# UBIN(16), 

19 - 2 SYSID REDEF FEP# UBIN(16), 
20 - 2 NODENAME CHAR(8): 


21 - DCL USRT$ PTR; 

22 - DCL USRT_ADDR REDEF USRT$ UBIN(32); 
23 - DCL SEGOFFSET UBIN; 

24 - DCL NILPTR UBIN(32) CONSTANT INIT(O); 
25 - DCL NIL$ REDEF NILPTR PTR: 


26 - 

27 - USEG.BASE$ = G$DS4$; 

28 - FSEG.BASE$ = G$BOBCATS: 

29 - CALL M$CVM (FPT_CVM) ; 

30 - HOST_BUF .FEP# = G$BOBCAT.FEP#; 

31 - HOST_BUF .NODENAME = G$BOBCAT.NODENAME ; 
32 - CALL MSWRITE (HOST_WRITE); 

33 - USRT$ = G$BOBCAT .USRTS ; 

34 - FPT_CVM.V.TYPE = %G_CVM_MON#; 

35 - IF USRT_ADDR > (1024*64) 

36 - THEN SEGOFFSET = MOD(USRT_ADDR, 1024*64); 
37 - ELSE SEGOFFSET = MOD(USRT_ADDR, 1024*4); 


FSEG.BASE$ = PINCRW(NIL$, USRT_ADDR - SEGOFFSET);: 


CALL M$CVM (FPT_CVM); 
HOST_BUF .SYSID = PINCRW(G$DS4$, 
CALL M$SWRITE (HOST_WRITE); 


XIT: 
CALL MSEXIT; 
END -AB6_FPRG_SI1; 


SEGOFFSET ) 


-> G$USER.SYSID(1); 


17:47 AUG 29 '85 LAB6_FPRG_SI2 


OOMONDOAWNH— 


10 


LAB6_FPRG_SI2: PROC MAIN; 

%\NCLUDE LCP_6; 

DCL M$ME DCB; 

DCL M$HOST DCB; 

DCL | UBIN; 

DCL SIZE UBIN;: 

%F PT_READ( FPTN=HOST_READ , BUF=CHAR_BUF , DCB=M$HOST , STCLASS=CONSTANT) : 
%FPT_WRITE(FPTN=TERMINAL_WRI TE ,BUF=REV_CHAR_BUF ,DCB=M$ME , STCLASS=CONSTANT) ; 
%FPTWRITE (FPTN=HOST_WRITE, BUF=CHAR_BUF, -DCB=M$HOST, STCLASS=CONSTANT) ; 


DCL CHAR_BUF (0:80) CHAR(1) CALIGNED STATIC; 

DCL CHAR_BUF1(0:80) REDEF CHAR_BUF UBIN BYTE CALIGNED; 
DCL CHAR_BUF2 REDEF CHAR_BUF CHAR(81) CALIGNED; 

DCL REV_CHAR_BUF (0:79) CHAR(1) CALIGNED STATIC; 


CALL M$READ (HOST_READ) ALTRET(XIT); 
SIZE = CHAR_BUF1(0):; 


DO | = 0 TO SIZE-1; 
REV_CHAR_BUF(S!IZE- |) = CHAR_BUF(1+1); 
END; 
CALL MSWRITE (TERMINAL_WRITE): 
CHAR_BUF2 = ' '; 
CHAR_BUF1(0) = SIZE; 
DO | = O TO 79; 
CHAR_BUF (1+1) = REV_CHAR_BUF(1I); 
END; 
CALL MSWRITE (HOST_WRITE): 
XIT: 
CALL M$EXIT; 


END LAB6_FPRG_SI2; 
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OADNDABRWNH— 


LAB6_HOST_SI1: PROC MAIN: 
%\INCLUDE CP_6; 
DCL B$JIT$ PTR SYMREF: 
%|INCLUDE BSJIT; 
DCL FPRG DCB; 
DCL TEMP UBIN STATIC; 
DCL 1 TEMP1 REDEF TEMP, 
2 * BIT(20), 
2 Y1 UBIN(8) UNAL, 
2 Y2 UBIN(8) UNAL; 
DCL FPRG_BUF(0:9) UBIN BYTE CALIGNED STATIC INIT(0*0); 
DCL 1 BUF STATIC, 
2 * CHAR(5) INIT('FEP#="), 
2 FEP#¥ CHAR(3), 
2 * CHAR(11) INIT(' NODENAME='), 
2 NODENAME(0:7) CHAR(1), 
2 NODENAME1(0:7) REDEF NODENAME UBIN BYTE UNAL; 
DCL 1 BUF1 STATIC, 
2 * CHAR(6) INIT(’SYSID='), 
2 SYSID CHAR(3);: 
DCL | UBIN; 
%FPT_WRITE (DCB=M$UC , FPTN=UC_WRITE,BUF=BUF) : 
%FPT_OPEN (DCB=FPRG, ORG=FPRG, RES='UCO2', FPRG=VLP_FPRG); 
%VLP_FPRG (NAME='LAB6:F1'); 
%FPT_READ (FPTN=FPRG_READ , BUF=FPRG_BUF ,DCB=FPRG) ; 


CALL MSOPEN (FPT_OPEN) ; 
CALL M$READ (FPRG_READ) ; 


TEMP = 0; 
TEMP1.Y1 = FPRG_BUF (0); 
TEMP1.Y2 = FPRG_BUF (1); 


CALL BINCHAR(BUF.FEP#, TEMP); 
DO | = 0 TO7; 
BUF .NODENAME1(1) = FPRG_BUF(1!+2); 
END; 
CALL M$WRITE (UC_WRITE); 
CALL M$READ (FPRG_READ) ; 


TEMP = 0: 
TEMP1.Y1 = FPRG_BUF(0O): 
TEMP1.Y2 = FPRG_BUF(1);: 


CALL BINCHAR(BUF1.SYSID, TEMP); 
UC_WRITE.BUF_ = VECTOR(BUF 1); 
CALL MSWRITE (UC_WRITE); 

END LAB6_HOST_S1I1; 
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OMANOAOAAWN = 


LAB6_HOST_S12: PROC MAIN; 

%\INCLUDE CP_6; 

DCL BSJIT$ PTR SYMREF; 

%INCLUDE BSJIT; 

%F SDCB ; 

DCL FPRG DCB; 

DCL | UBIN; 

DCL SIZE UBIN; 

DCL CHAR_BUF (0:79) CHAR CALIGNED STATIC INIT(' '); 

DCL CHAR_BUF1 REDEF CHAR_BUF CHAR(80) CALIGNED; 

DCL FPRG_BUF(0:80) CHAR(1) CALIGNED STATIC; 

DCL FPRG_BUF1(0:80) REDEF FPRG_BUF UBIN BYTE CALIGNED; 

%FPT_WRITE (DCB=M$UC ,FPTN=UC_WRITE ,BUF=CHAR_BUF ) ; 

%FPT_WRITE (DCB=FPRG,FPTN=FPRG_WR1 TE ,BUF=FPRG_BUF ) ; 

%FPT_OPEN (DCB=FPRG, ORG=FPRG, RES='UCO2', FPRG=VLP_FPRG) ; 

%VLP_FPRG (NAME='LAB6:F2'); 

%FPT_READ (FPTN=FPRG_READ ,BUF=FPRG_BUF ,DCB=FPRG) ; 

%FPT_READ (FPTN=UC_READ , BUF=CHAR_BUF ,DCB=M$UC) ; 

%FPT_LDEV (FPTN=LDEV_FPRG, STREAMNAME= ’UCO2' ,WINDOA=VLP_WI NDOW_FPRG) : 

%VLP_WINDOW( FPTN=VLP_WI NDOW_FPRG ,, FWINDOW= 'UCO1' , LENGTH=6 ,WIDTH=80, 
POS!1T!ON=TOP ) ; 

%FPT_LDEV(FPTN=LDEV_DELTA , STREAMNAME= ‘UC99' ,WI NDOA=VLP_WI NDOW_DELTA) ; 

%VLP_WI NDOM FPTN=VLP_WI NDOW_DELTA, FWINDOW='UCO1' , LENGTH=8 ,WIDTH=80, 
POS | T |ON=BOTTOM) ; 


CALL M$LDEV (LDEV_FPRG) ; 
CALL M$LDEV (LDEV_DELTA): 
CALL M$OPEN (FPT_OPEN) ; 
CALL M$READ (UC_READ) : 
S$!ZE = DCBADDR( DCBNUM(M$UC)) ->» FSDCB.ARS#; 
FPRG_BUF1(0) = SIZE; 
DO | = 1 TO SIZE+1; 
FPRG_BUF (I) = CHAR_BUF(I-1); 
END; 
CALL M$WRITE (FPRG_WRITE); 
CALL M$READ (FPRG_READ) ; 
SIZE = FPRG_BUF1(0); 


CHAR_BUF1 = ' '; 
DO | = 1 TO SIZE+1; 
CHAR_BUF (1-1) = FPRG_BUF (1); 
END; 
CALL MSWRITE (UC_WRITE); 
END LAB6_HOST_S12; 


LAB 7 
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col 
co2 


C03 
C04 


cos 
CcOo6 
Cov 
cos 
cog 
C10 


ANLZ Command Summary - FEPs 
REC Command - FEPs 


Monitor Trap Example 
Handler Trap Example 


LCP6 Trap Numbers 
MCL Codes 

ASDTs 

Users HJIT 

Low Real Memory 
Status Register 


17:06 AUG 29 


‘85 COl. 
ANLS Commands for FEPs 


- Combinations of dumps/ANLZ 
- COO dump / COO ANLZ 
- COO dump / Bootleg ANLZ 
- COl dump / COl ANLZ 


ANLZ FEP Commands - Available on COO 


ADD 
BOB[CAT] 
CHN[TBL] 


MLCP 
PL[UGH] 
REC[OVERY] 
SPY 

TSA 


Identifies channel context for FMT command to display. 
Displays the contents of the base of the BOBCAT data segment 
Produces formatted display of a channel table entry 
The opposite of ADD 

Produces hex dump of specified area of FEP memory 
Displays the context for a channel 

Formats an Interrupt Save Area 

Dumps the Line Control Table for a channel 

Produces a hex dump of specified MLCP memory 

Displays the chain of calls in an AUTO Stack 

Formats the contents of the FEP Recovery Buffer 
Displays all users currently on the FEP 

Formats a Trap Save Area 


Additional Commands with Bootleg ANLZ or COl ANLZ: 


ACC[RES] 
CHANNELS 
DCB[S] 
ECCB 
INT[CON] 
JIT 
LDCT 
MEM[ORY] 


STATI[US] 
TCB 
USR[T] 


Displays the contents of the Account Resource Table. 
Displays channel ids and channel types 

Displays DCBs for selected user(s). 

Displays the ECCB for selected user(s). 

Displays the contents of the Interrupt Table. 
Displays selected items from the JIT for selected user(s). 
Displays the LDCT. 

Displays memory usage information 

Displays network routiong info 

Displays the contents of the Shared File Table. 
Displays selected FEP users. 

Displays memory usage for selected user(s). 

Displays the Task Control Block for selected user(s). 
Displays the contents of the User Table. 


CO1 ANLZ cannot be used with COO systems as there is a slight change 
to the DCB structure. 


To get the latest and greatest Bootleg ANLZ, BEAM both ANLZ and 
ANLZ_FPRG from account ZZZTEST @L66A to your site. 


You cannot always believe the info from the MEMORY and STAT commands 


when they are used on-line. 


They are not valid for COO in any event. 
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REC Command 


- FCG-nnnn-3 See System Support Manual - Appendix B 
GHT-trap no-3 - Monitor Trap 
GHH-trap no-3 - Handler Trap 


- 8: status register See G$STATUS_REG 


The important thing here is the Level; 
.04 - inhibit level - could be monitor or handler 
.O6 through .OA - its XDELTA 
.OC through .3B - Its a handler - use INTCON command 


.oD - Real 


Time Clock 


.8E - Scheduler Level 
.oF - User Execution 


To find all the active levels, look at low real memory 


by saying DU 


. 3020 ,4 — see G$LOW_MEM 


To find the active domain, look in the user’s HJIT at .507E 


See G$UHJIT. 
%G_DMN_MON_SVC O %G_DMN_MON 4 
%G_DMN_DB_SVC 1 %G_DMN_DB 5 
%G_DMN_INT_SVC 2 %G_DMN_INT 6 
%G_DMN_USR_SVC 3 %G_DMN_USR 7 
- ISM2 Interrupt Save Mask2 - See G$ISM2 


The interesting field is the NATSAP: 
2 - Handler at interrupt level 


1 - User 
O - Idle 


or User Service 
Loop 


- TSA Trap Save Area - must determine the valid frame if COO. 


Check Status 
a If monitor - 


If Handler - 


Register to see what level was running 
default SYM of M:FEP.:SYS is the right one 
Say PL .4000 to see TSTACKU 


use INTCON command to find user number (SPY CUN if C01) 
use SPY to get M$LM fid 

use JIT to get SLIB number 

use SFILE to get library fid 


If Program Counter is >= .60000 use SYM library fid 
If Program Counter is <« .60000 use SYM M$LM fid 

Say REC again to get valid P$, ete. (or say EV .addr) 
Say PL .AQ000 for CUN to see Handler’s Auto 


If COO or Bootleg ANLZ you must get B3 and R3 from here; 
the B3 and R3 in the following ISA display will be as destroyed 
by the software to build the TSA. 


If TRAP: is .01 or .63 - its an MCL 
- R3 has the MCL code - see attached list 
- B3 has the address of FPT -see manual 


If TRAP: is .02 through .1F - its a hardware trap 
See list 


If TRAP: is .2F through .62 - its a software pseudo trap 
See list 


If TRAP: is .20 through .2E - its a bug 


- Current User: 
If not running at level .3F this is not necessarily the 
current user, but instead the user that was running when 
we got the interrupt. 


This is the user that ANLZ displays on subsequent commands 
that specify CUN on COO, however. COl gets it right. 


ANLZ doesn’t understand CUN until after you have said REC 
if using COO or Bootleg ANLZ. 


A couple of useful addresses: .6351 contains CUN 
-6352 and .6253 contain CU$ 
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DRIBBLE ON @ 18:21 08/21/85 
!ANLZ AQQ9 
ANLZ C01 


:DFCO1A099 for GHT-001304-3 at 13:24 AUG 06 ‘85 on LADC L66B 


KR is to blame 


Nodes: L6EXII L66B 
L6XII (node 12) Selected 
L6XII -REC 


Screech Code: 


GHT-MO1304-0 LCP6 Abort - Disabled Too Long 


PPUT inconsistent. Index = 1427 


Current User: .5 TSA$: .50FF 
TSA @.50FF: 

Watch Dog Timer Runout 
TRAP: 4 TSAL$: .50B6 I: .0402 INST: .0000 Z: .0080 
A$: .0O P: .25F99 B3: .452D R3: .3A S: .4004 
Trap IC: GMA$LGP+.4D9 
ISA: 
P: .25F99 S: .6004 CHN: .FFFF ISM1: .FFFF ISM2: .9103 
Interrupted address: GMA$LGP+.4D9 

1 2 +) 4 5 6 7 

BRegisters:  506E 9D10 452D C0040 9003E 90000 44E3 
R Registers: FFFF Bao 3A 593 598 0 AQFF 
M Registers: FFOO FFOO FFOO FFOO FFOO FFOO FFOO 
ASV$: .503E TSAP$: .O NATSAP: 1 I: .0002 T$: .45FA 
CI: .0000 RDBR$: .0 
TSA @.50B6: 

MCL - Monitor Service Request. 
TRAP: 63 TSAL$: .0 I: .3F04 INST: .0001 Z: .8000 
A$: .2004F P: .20050 BS: .10288 R3: .902 S: .O03F 


Trap IC: GFM$MCL+.18 


ISA: 
P: .20050 8: .0000 CHN: .0000 ISM1: .FFFF ISM2: .8103 


Interrupted address: GFM$MCL+.18 


1 2 ts) 4 5 6 7 
B Registers: ie) O 10288 i) 0 O A0010 
R Registers: 6) 6) 902 6) fe) 6) 0 
M Registers: FFOO fe) 6) 6) 6) 0 0) 
ASV$: .0 TSAP$: .0 NATSAP: O I: .0000 T$: .AOOFA 


CI: .0000 RDBR$: .0 


L6XII -DUA .10288,8 F CUN 

6) 1 2 3 4 5 6 7 
010288 0003 0001 O28E 0005 0001 0298 0100 4000 .............. @. 
L6XII -DUA .10298,6 F CUN 


0) 1 2 3 4 5 6 7 
010298 O00C 0000 0000 0001 0001 O29E ~~ _............ 


L6XII = 

LOXII -SPY CUN 

Usr# Identification Sysid CPU M$LM 

G .5 LLAHOST, 104AVERY 11 0:00 QGDS . LLAHOST 
L6XII -JIT CUN 


JIT for User# .05 Sysid 11 Mode: Ghost Prog entry: M$SETFP LLAHOST, 104AVERY 
DLL .0100 DUL .0102 PLL .0200 PUL .0201 LLL .0600 LUL .OV7FF MAXMEM 511 


PCD 3 PCP 2 PCL O PCDS(non-IO) 1 PCDS(IO) O 
PCC 11 PCROS 1 PCCQ O PCHHJIT O PCDDS 0 


PRIV.ACTIVE: .Q0000000 AUTH: .O0300C4F PRC: .O0000000 PPRIV .00000000 
MCLs: 6 Steps: 1 CVM_REAL: .00000000 SPROC: 5 SLIB 2 DB: O 
RNST .0000 FRS .0000 XLIMFLG .00 STEPCC .00 RUNF .04 JUNK .0000 
Interrupts: MAX 5 CURR O SPEAK 0 JdJPEAK O Rtime Clk O Xtime Clk 0 
JIT.ERR and JIT_FD_ALTERR 

-00000-0 

—00000-0 


L6XII -TCB CUN 
TCB for User# .05 ALT$ .012C9 STK$ .012F7 AVSZ .O008A CURRSZ .O000 


Altret frame at .012C9 ECC: .0063 PREVSZ: .0000 


P: .74B56 S: .OO3F ISM1: .FFFF ISM2: .8103 


1 2 3 4 5 6 7 
B Registers: (e) 0 74C61 O 6) O 2001D 
R Registers: ie) 0 905 6) O 0 6) 
M Registers: O FFOO 6) ) ie) 6) 6) 
I: .3FOO T$: .0 CI: .45FA RDBR$: .O 


SUBC: .0905 EVID: .0000 ERR: .3B5B1318 P#: .0000 


GMM-MOO0611-0 That page does not belong to you. 


L6EXII -ECCB CUN 

ECCB for User# .05: 

EVENT$ .00000 INT$ .00000 XCON$ .00000 TRAP$ .00000 DBCONTROL$ .00000 
FLAGS: .0000 FLTFLG: .8000 .0000 .0000 


L6EXII -DCBS CUN 
DCBs for User# .05 

+ DCB$ FCD ORG RES NODE GEN LDCTX STRM DDEV HMI$ SSN$ DCBNAME 
.O1 .011Al1 CLS 0 HO -00 .00 .0000 .00 .00 .00000 .00000 M$DEBUG 
-02 .011D7 OPN O HO ..14 .35 .008F .01 .00 .00000 .C1CE4 M$LM 

Name: QGDS.LLAHOST 

.03 .01215 CLS O ucol .00 .00 .0000 .00 .00 .00000 .00000 M$ME 
-04 .0124A OPN O HO -14 .35 .008F .01 .00 .O00000 .C1CE4 M$HOST 
-O5 .01280 CLS O .00 .00 .0000 .00 .00 .00000 .00000 M$DO 


L6EXII -DU .5000, .3E F CUN 

fe) 1 2 3 4 5 6 7 
005000 0000 FCOO 85AD 2C03 0000 5CO00 8000 ACOF 
005008 85A7 ACOS 85A5 5CO1 8009 ACO6 0000 ACOO 
005010 8010 ACOY 8018 B80F 0000 OCO0 0000 OCcOO0 
005018 0000 5CO00 0000 FCOO 0000 FCOO 0000 FCOO 
005020 85B1 OCO2 85B4 3001 0000 1000 0000 1000 
005028 0000 1000 81EA 3OFF 82EA 3055 0000 6400 
005030 0000 6400 85B6 OC0O0 0000 OCOD 0000 OC0ND 
005038 0000 ACOO 0000 FCOO 8700 A8FF 
L6XII -DU .503E,.3E F CUN 

6) 1 2 3 4 5 6 7 
005038 0000 FCOO 
005040 85AD 2CO03 8175 ACO? 8000 ACOF 85A7 ACOS5 
005048 85A5 5CO1 8009 ACO6 0000 ACOO 8010 ACO7 
005050 8018 B80F 85B3 OCOO 85B3 OCOO 0000 FCOOD 
005058 0000 FCOO 0000 FCOO 0000 FCOO 8028 ACOS 
005060 802E B8F8 0000 B80 0000 B800 0000 B800 
005068 85Bl OCO2 8594 A8FF 8127 B84A 858B AQFF 
005070 0000 FCOO 0000 FCOO 817D ACFF 0000 ACOO 


005078 0000 FCOO 8700 A&FF 


SEG6 SEG? 


L6XII -SPY 
Usr# Identification Sysid CPU M$LM 
EH .1 :SYS,NODEADMN 1 2:17 NODEADMN. : SYS 
H .2 :SYS,HDLCX25 2 5:34 HDLCX25. : SYS 
H .3 :SYS,ASYNC 3 9:51 ASYNC. : SYS 
G .4 LLAHOST, 104AVERY 8 0:00 ANLZ_FPRG. : SYS 
G .5 LLAHOST,104AVERY 11 0:00 QGDS . LLAHOST 
L6XII -USRT 
* FL BL Sysid Mode State Flags Asyne DL$ MISC 
-O1 .00 .03 L HE SW -0000 .0000 .00000 .O0008E4F 
.02 .03 .00 2 H SW -0000 .0000 .00000 .00008A06 
.03 .01 .02 3 H  SsW -0000 .0000 .00000 .00008E07 
-04 .00 .00 8 G scr -0800 .0000 .00000 .000C1542 
-05 .00 .00 11 G  scu -0000 .0000 .00000 .000C16D2 
# Sysid HJIT MF Clock UTS Prio PrioB  USRT$ 
-O1 1 .01C8 O .0000 780101 0000 4 4 C1058 
.02 2 .01D3 O .0000 780101 0000 4 4 C1070 
.03 3 .01DD O .0000 780101 0000 4 4 C1088 
04 8 .058B O .0000 780101 0000 1 1 C10A0 
.05 11 + .05A5 O .0000 780101 0000 1 1 C10B8 
L6XII -SFILE 
# File Identification Flags Modtime Instime 
1 DELTA_F.:SYS .0800 780101 0000 780101 0000 1 #1 
@ :SHARED_LCP6_SYSTEM. :SYS -4000 780101 0000 780101 0000 4 8 
4 ANLZ_FPRG. :SYS -AO80 781016 1214 850806 1223 1 38 
5 QGDS.LLAHOST .8080 781017 0101 850806 1321 1 #1 
+ PGS ROS DATA PROC PP# ROS SEG1 SEG2 SEG3 SEG4 SEG5 
1 -000 .0000 .004B 0000 .0127 .0000 .0000 .0000 .0000 
2 .000 .0002 .0156 0000 .01E9 .0000 .0000 .0000 .0000 
4 -000 .Q000 .O00A 0000 .0000 .O59A .0000 .0000 .0000 
5 .000 .0000 .0002 0000 .0000 .05B4 .0000 .0000 .0000 
LO6XII —-INTCON 
# TIMER ep ey P$ IENTRY DEV §& HHJIT USR LVL FLAGS 
20 0000 00000 .O94FA 00000000 0020 4000 .0000 .03 .00 .8400 


0000 2000 


-21 .17E3 .O00000 .094FA OO0Z0A5C 0000 4004 .81DB .03 .20 .COO0 0000 2000 
-22 .0000 .00000 .094FA 00021432 0000 4004 .81DC .03 .20 .CO00 0000 2000 
-24 .0000 .00000 .094FA 00000000 0024 4000 .0000 .02 .00 .8400 0000 2000 
-25 .17E3 .00000 .094FA 00021920 0000 4004 .81E6 .02 .24 .CO00 0000 2000 
-26 .0000 .00000 .094FA 00021920 0000 4004 .81E7 .02 .24 .COO0D 0000 2000 
L6EXII —-MEMORY 
FEP Memory Utilization 

MONITOR : BIGFOOT O .0000 
MONITOR: Procedure and Static Data 279 ~.0117 
MONITOR : Cntx-TSTKM . UMHJIT, MHJIT,ROS , LRM 19 .0013 
MONITOR : BOBCAT 75 .004B 
MONITOR: DELTA-Procedure and Dyn Data Seg 83 .0053 
MONITOR:Total Dedicated Memory.......... 456 .01C8 

USER COMGP HAND GHOST 
FPRGS :User Procedure O O 288 fe) 
FPRGS :User Data-Static and Dynamic ) O 495 7 
FPRGS :Context-TSTACKM,ROS, UHJIT,HHJITs 6) 6) 40 24 
FPRGS :Handler Q ie) O 99 6) 
FPRGS :DELTA-Dynamic Data 6) O O 6) 
FPRGS :Individual Totals............... 6) O 922 31 
FPRGS :Individual Totals............... .0000 .0000 .039A .001F 
TOTAL :Memory Available on L6.......... 2048 .0800 
TOTAL :Memory Dedicated by LCP-6 456 .01C8 
TOTAL :Available for FPRGs and SFILEs 1592 .0638 
TOTAL :System Shuffable Memory 282 .O011A 
TOTAL :System Non-shuffable Memory 380 .017C 
TOTAL :Memory used by FPRGs 953 .03B9 
TOTAL :Memory for SFILE Procedure 354 =.0162 
TOTAL :Memory for SFILE Data 2  .0002 
TOTAL :Memory Free - Shuffable O .0000 
TOTAL :Memory Free - Non-shuffable 77? .004D 
TOTAL :Memory Unaccounted For 206 .00CE 
L6XII -STAT 

Max Phys Pro Data Dyn Dyn Con Ro Dbg Cq HHJT 

M Identification Sysid Pgs Pgs Pgs Pgs Pgs I/O Pgs Pgs Pgs Pgs 
H :SYS,NODEADMN 1 65535 181 68 8 60 O 11 1 O 383 
H :SYS,HDLCX25 2 65535 370 167 19 89 48 11 1 O 33 
H :SYS,ASYNC 3 65535 371 53 7 9 255 11 1 O 388 
G LLAHOST, 104AVERY 8 6511 15 108 2 1 #011 1 #O O 
G LLAHOST, 104AVERY ll (511 146 #285 3 #21 Oi 11 1 #O O 


L6XII 
# FL 


L6XII 
PPUT$: 


L6XII 


-USRT 


-PPUT 


-C0040 


-EV 


MEM_LO: 
PPUT Entry - first page .593 : 


. 593 


0108 


780101 0000 
780101 0000 
780101 0000 
780101 0000 
780101 0000 


MEM_HI: 
6800 0006 


. OOOO8E4F 
. OOOO8ANE 
. OOOO8EO? 
00001542 
.000C16D2 


USRT$ 


Pep PD 


.O7FF 
last page .598 : 


C1058 
.C1070 
.G1088 
.C10A0 
.C10B8 


A804 O 


Dec: 1427 Oct: 2623 Hex: 593 Entdef: GD_DATA_D+.593 
-4000 F CUN 


L6XII 
CW=.1AA 


004450 
004458 
004460 
004468 
004470 
004478 
004480 
004488 
004490 
004498 
0044A0 
0044A8 
0044B0 


@ 
@ 
@ 
@ 
@ 
@. 
@ 
@ 
@ 
@ 


-PL 


MW=. 


- 4450 
- 4489 
-44A7 
-44C2 
.44DB 
44E2 
4534 
-4561 
. 45EE 
-45F5 


is) 
0038 
4496 
OOOE 
0000 
0000 
2476 
445D 
446E 
0000 
0002 
449E 
0002 
0002 


5FO 


called 
called 
called 
called 
called 
called 
called 
called 
called 
called 


1 
0002 
0000 
0000 
0800 
0000 
0002 
0000 
001D 
44B3 
2316 
0000 
2EBO 
2961 


2 
2538 
4494 
0000 
0800 
4451 
244E 
4466 
0002 
0000 
0000 
4496 
0000 
O16A 


from 
from 
from 
from 
from 
from 
from 
from 
from 
from 
-DUA .4450, .4000 


3 
0000 
0002 
0800 
OO00E 
0002 
0002 
0000 
2A84 
44B5 
44B4 
0000 
0000 
08CO 


0000 
235B 
0006 
0000 
2446 
2561 
4465 
0000 
OOOE 
0000 
4494 
0000 
O5A8 


4 5 6 
0000 449E 
0498 8100 
0004 003C 
1184 0001 
0000 4451 
0002 
0000 
0000 
0000 
4494 
0002 
3200 
0004 


.22335 (GID$WRDUMP+ .35) 
.22A81 (GIR$SINITDUMP+.177) 
.22EB6 (GIR$SCREECH+ .142) 
.91DA (GHT$TRAP+.1D9) 
.90EB (GHT$TRAP+.EA) 
.26B19 (GMM$MCLS+.135) 
.9A26 (GUD$MCL_HAND+ . 2E4) 
.9238 (GHT$TRAP+.237) 
.9746 (GUD$MCL_HAND+.4) 
.21386 (GHS$ADDUSR+ . 196) 
F CUN 


.C1B86 
.C1B9F 
.C1BB8 
. 00000 
. 00000 


002 


0044B8 
0044C0 
0044C8 
0044D0 
0044D8 
0044E0 
0044E8 
0044F0 
0044F8 


004500 
004508 
004510 
004518 
004520 
004528 
004530 
004538 
004540 
004548 
004550 
004558 
004560 
004568 
004570 
004578 
004580 
004588 
004590 
004598 
0045A8* 
0045B0 
0045B8 
0045D8 * 
0045E0 
0045E8 
O045F0 
O045F8 


0000 
0000 
SOFF 
OB66 
0003 
0000 
4551 
6FCF 
0000 

6) 


0594 
OOOF 
5BOA 
0002 
0000 
639E 
506E 
OOF9 
0008 
10B8 
0008 
4552 
455F 
0000 
0000 
000B 
0001 
0001 
0000 
0000 
0000 
0003 
0000 
0000 
1318 
0000 
9749 
FFFF 


44B4 
44BC 
0000 
0002 
0000 
SOFF 
0000 
0000 
0000 

1 


000C 
0009 
0000 
0002 
454B 
0002 
452D 
0000 
0002 
0000 
001B 
0002 
008C 
8292 
503E 
0000 
0000 
0288 
AO8E 
0000 
0000 
0005 
0000 
0000 
0000 
OOOB 
0000 
0000 


44B3 0000 
0000 91DD 
0593 0592 
0000 9D30 
0006 0000 
0002 6B1C 
0002 6FCE 
O00C OBAE 
0010 0007 

3 4 
000Cc 1F70 
00029 O03E 
8594 A8FF 
0000 0004 
453B 0000 
0000 44FD 
44F2 002C 
0000 0000 
10B8 A068 
0000 0000 
0002 GA4F 
0002 6FCE 
923B 0000 
0000 0108 
O28E 0000 
0001 029B 
0298 0000 
0000 5OB6 
BO98 0000 
0000 0000 
0001 O03F 
0000 0000 
0000 0000 
4B58 0063 
0000 0000 
9926 0000 
0000 50B6 
OS5FO 0000 


44B5 
0000 
OVFF 
O005C 
QO0EE 
0000 
0002 
0000 
058B 

5 


O000C 
0007 
OOOE 
0004 
454A 
0000 
0000 
OCOO 
0000 
AO8E 
0000 
0002 
0000 
0002 
4592 
0002 
0098 
3B43 
0000 
0000 
0000 
0000 
0000 
0905 
0000 
458A 
0004 
0000 


Seat anton este Guietonwy ee E 
Haat h...p...N 
[ee Reew ea coatare Sees 
ib ccitene de As ox eeaes axe E. 
. EK..E;..Ed.... 
Cee et. Die S 
PnE-..Dr.,...) 
scot Bins Mere tar eee ae 
ieiamnsets 8h..E 
BR eitis ...0. 
Shots N..jO..EQ.. 
ER..ON..ON..00.. 
Bee ie Sosaits acere P6 
Pee eran ee ik 
Powe ose ud Bienes 
oan ees /PO:ORC. . 
bi Oaceiis. dian steve 
ie end eae 
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17:06 AUG 29 ’85 C04: 


DRIBBLE ON @ 
!ANLZ A090 
ANLZ CO1 


:DFCO1A090 for GHH-001304-3 


17:16 08/21/85 


JL is to blame 


Nodes: 


L6IX 


L66B 


L6IX (node 9) Selected 
L6IX -REC 


Screech Code 


GHH-MO1304-O Handler Abort 


Current User 


TSA @.50B6: 


2 et 


Watch Dog Timer Runout 


TRAP: 4 TSAL$: 


A$: .0 
ISA: 
P: .6ED4D 


B Registers: 
R Registers: 
M Registers: 


ASV$: .5000 


P: 


F 


CI: .0002 RDBR$: 
L6IX -SPY CUN 
Usr# Identification 


H .3 :SYS,A 


L6IX -IN 


+ TIMER TSAP$ P$ 


.O 


. 6ED4D 


4 


TSAP$: 
-0 


at 18:30 AUG 05 


TSA$: .50B6 


‘85 on LADC L66B 


- Disabled Too Long 


I: .041A INST: .0001 Z: .0080 
B3: .A0250 R3: .FFFF §: .4020 
.0000 CHN: .FFFF ISM1: .FFFF ISM2: .A103 
2 3 4 5 6 ? 
323A0 323A0 AO250 32B00 33AEO 33A00 AO2B7 
16 FFFF 50 4 3 1 
FOO FFOO FFOO FOO FFOO FOO FFOO 
.0 NATSAP: 2 I: .0O1A T$: .AOVFA 
Sysid CPU MSLM 
3 56:40 ASYNC. : SYS 


SYNG 


TCON 


-O0000 . 
-00000 . 
00000 . 
-O0000 . 
-00000 . 
-Q0000 . 


00000000 001A 
000246AA 0000 
00024784 0000 
000248C2 0000 
00000000 0020 
O00020A5C 0000 


Ss 


HHJIT USR LVL FLAGS 


4000 . 
4004 . 
4004 . 
4004 . 
4000 . 
4004 . 


-22 .0000 .00000 .094FA 00021432 0000 4004 .8201 .03 .20 .CO00 0000 2000 
-24 .0000 .00000 .094FA 00000000 0024 4000 .0000 .05 .00 .8400 0000 2000 
-85 .1802 .00000 .094FA 00021920 0000 4004 .81F7 .05 .24 .CO00 0000 2000 
-26 .0000 .00000 .094FA 00021920 0000 4004 .81F8 .05 .24 .CO00 0000 2000 
-32 .0000 .00000 .094FA 00000000 0032 4000 .0000 .02 .00 .8400 0000 2000 
-33 .172B .00000 .O094FA OO0020A9A 0000 4004 .86CC .02 .32 .CO00 0000 2000 
-34 .0000 .00000 .094FA 00000000 0034 4000 .0000 .06 .00 .8400 0000 2000 
-35 .1801 .00000 .094FA O0020A9A 0000 4004 .86EE .06 .34 .CO00 0000 2000 


L6IX -DU .3020,4 
O 1 2 3 4 5 6 7 
003020 0800 0000 C000 0005 


L6IX -DU .507E,1 

6) 1 2 3 4 5 6 7 
005078 0002 
L6IX -JIT CUN 


JIT for User# .03 Sysid 3 Mode: Handler Prog entry: Bigfoot :SYS,ASYNC 
DLL .0100 DUL .0106 PLL .0200 PUL .0234 LLL .0600 LUL .O7FF MAXMEM 65535 


PCD 7 PCP 53 PCL O PCDS(non-IO) 9 PCDS(IO) 192 
PCC 11 PCROS 1 PCCQ 33 PCHHJIT 2 PCDDS O 


PRIV.ACTIVE: .00300C08 AUTH: .FFFFFFFF PRC: .00000000 PPRIV .O00000000 
- MCLs: 58664 Steps: 1 CVM_REAL: .00000010 SPROC: 0 SLIB 2 DB: O 

RNST .0000 FRS .0000 XLIMFLG .00 STEPCC .00 RUNF .04 JUNK .0008 

Interrupts: MAX 10 CURR 4 SPEAK 4 JPEAK 0 Rtime Clk O Xtime Clk 0 

dIT.ERR and JIT_FD_ALTERR 


—00000-0 
-00000-0 
L6IX -SFILE 2 
# File Identification Flags Modtime Instime UC FRQ 
2 : SHARED _LCP6_SYSTEM. :SYS -4000 780101 0000 780101 0000 6 10 


# PGs ROS DATA PROC PP# ROS SEG1 SEG2 SEGS SEG4 SEG5 SEG6 SEG?’ 


2 .000 .0002 .018D -0000 .021A .0000 .0000 .0000 .0000 .021C .031C 
L6IX -SYM :SHARED_LCP6_SYSTEM. : SYS 
L6IX -REC 


Screech Code: 


- GHH-MO1304-0 Handler Abort - Disabled Too Long 


Current User: .4 
TSA @.50B6: 

Watch Dog Timer Runout 
TRAP: 4 TSAL$: .0O 
A$: .0 P: .6ED4D 
Trap IC: KVO$GNRPST+.191 
ISA: 
P: .6ED4D S: .Q0000 CHN: 


TSA$: 


- 5O0B6 


Interrupted address: KVO$GNRPST+.191 


B Registers: 


R Registers: 4 16 
M Registers: FFOO FFOO 
ASV$: .5000 TSAP$: .0O 
CI: .0002 RDBR$: .O 

L6IX -PL .AOQOOO F .3 
CW=.544 MW=.7ED 

Frame @.AO2B6 called from 
Frame @.A0273 called from 
Frame @.A0234 called from 
Frame @.A0210 called from 
Frame @.AO1CD called from 
Frame @.AOQ1AE called from 
Frame @.A0192 called from 
Frame @.A0173 called from 
Frame @.A001C called from 
Frame @.AOOOF called from 
L6IX -SYM ASYNC.:SYS 
L6IxX -PL .AQOOO F .3 
CW=.544 MW=.7ED 

Frame @.A02B6 called from 
Frame @.A0273 called from 
Frame @.A0234 called from 
Frame @.A0210 called from 
Frame @.AO1CD called from 
Frame @.AO1AE called from 
Frame @.A0192 called from 
Frame @.A0173 called from 
Frame @.A001C called from 
Frame @.AOOOF called from 


I: .041A INST: .OOO1 2: 
B3: .A0250 R3: .FFFF 8: 
-FFFF ISM1: .FFFF ISM2: 
3 4 5 6 


.0080 


- 4020 


- A103 


323A0 323A0 


A0250 
FFFF 
FFOO 


.7481B 
. 6ACO?7 
. 68DD9 
- T45E2 
. 20CB6 
. 20AFC 
. 2OASC 
. 6BD53 
-21B15 
-21A28 


.7481B 
. 6ACO7 
. 68DD9 
- T45E2 
. 20CB6 
. 2OAFG 
. 20A5C 
. 6BD53 
.21B15 
-21A28 


50 4 
FFOO FFOO 


NATSAP: 2 I: 


(KVV$VDI_+.8D7) 
(KVI$INT+.1915) 
(KVI$INPCHR+ .931) 
(KVV$VDI_+.69E) 


(KVM$RCV_+.323) 


(X6A_MAUTO+. 14717) 
(X6A_MAUTO+ . ABO3) 
(X6A_MAUTO+ . 8CD5 ) 
(X6A_MAUTO+ . 144DE) 
(KAI$INPINT+.10C) 
(KAI$INP+.AO) 
(KAI$INP+.0) 
(X6A_MAUTO+ . BC4F) 
(KAS$BOT+ . ED) 
(KAS$BOT+ .0) 


3 
FFOO 


.OO1A T$: 


32BO0 33AEO 33A00 AO2B7 


i. 
FFOO 


-AOTFA 
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E$TRAP=1300 
Err TSA 
loxx X’xx’ 
01 01 
02 02 
03 03 
04 04 
05 05 
06 06 
Oo” O07 
08 08 
09 09 
10 OA 
12 isle; 
13 OD 
14 OE 
15 OF 
16 10 
17 11 
19 13 
20 14 
el 15 
22 16 
25 17 
24 18 
25 19 
26 1A 
av 1B 
28 1¢ 
29 1D 
30 1E 
31 iF 

1347 - 1362 

1347 - 1354 
47 aF 
48 30 
49 31 
50 32 
51 33 
52 34 
55 37 
56 38 
57 39 
58 3A 
59 3B 


LCP-6 Trap Numbers 


ES$TRAP + G$TSA.I.TRAP# yields the following: 


ESUNIMPL 
ESINT_REG_OV 
E$S_DBZ 
E$S_EXP_OV 
ESSTK_UF 
E$STK_OV 
E$REMOTE_DESC 
E$PRIV 
E$MEM_PROT 
ESINT_UR 
E$PROG_ERR 
ESINT_MBE 
E$S_EXP_UF 
E$S_PROG_ERR 
E$S_SIGNIF 
E$S_PRECISION 
ESEXT_UR 
E$EXT_MBE 
E$C_DBZ 
E$C_SPEC 
E$C_CHAR 
E$C_TRUNC 
E$C_OV 
E$CIP_QLT 
ESSIP_QLT 


ERRMSG file 

MCL 

Trace Breakpoint Trap 

Uninstalled SIP Trap 

Watch Dog Timer Runout 
Unimplemented Instruction Trap 
Integer Register Overflow Trap 

SIP Divide by Zero Trap 

SIP Exponent Overflow Trap 

Stack Underflow Trap 

Stack Overflow Trap 

Remote Data Descriptor Trap 
Privilege Violation Trap 

Memory Protection Trap 

Internal Unavailable Resource Trap 
Program Error Trap 

Internal Memory or Bus Error Trap 
SIP Exponent Underflow Trap 

SIP Program Error Trap 

SIP Significance Error Trap 

SIP Precision Error Trap 

External (CIP or SIP) Unavailable R 
External (CIP or SIP) Memory or Bus 
CIP Divide by Zero Trap 

CIP Illegal Specification Trap 
CIP Illegal Character Trap 

CIP Truncation Trap 

CIP Overflow Trap 

CIP QLT Fault 

SIP QLT Fault 


used to communicate to host debugger. 
reserved to reflect GJ_LCP6_M FPT code. 


E$FPRG_EXIT 
E$FPRG_ERR 

ESF PRG_XXX 
E$FPRG_LDTRC 
E$FPRG_XBREAK 
E$FPRG_SCREECH 


E$HOST_INT 
E$FPRG_EVENT 
E$FPRG_BRK 
E$FPRG_XCON 
E$FPRG_MCLTRAP 


FPRG MS$EXIT. 

FPRG MSERR. 

FPRG M$XXX. 

FPRG requesting M$LDTRC. 

FPRG (FPL interpreter) M$KBREAK. 
FPRG M$SCREECH 


FPRG interrupted by Host Debugger. 
FPRG event condition. 

FPRG break condition. 

FPRG exit/abort condition. 

FPRG bad MCL - Entry to trap handler. 


60 
61 
62 
63 


E$DB_TIMER 
ES$FPRG_START 
E$FPRG_START2 
E$MCL2 


Debugger Timer Runout event 
FPRG started via M$SETFP. 
FPRG started via M$LDTRC. 
MCL 
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Monitor service codes 


- FPT specified 


Sorted by $R3 value 


Service Name 


MS$INTRET 
MS INTCON 
MS INTREL 
MSSYS 
M$XBREAK 
M$SCREECH 
M$MAKEUSR 
M$MERC 
M$RETRY 
MS$CLRSTK 
M$MERCS 
M$RETRYS 
MS$AFD 
MS$DRTN 
MSUNSHARE 
M$CHGUNIT 
MS$RUE 
M$GDDL 
M$RELDCB 
M$TRMPRG 
M$RCHAN 
MS$EXIT 
MSERR 
M$XXX 
MSEVENT 
MSINT 
M$XCON 
M$TRAP 
M$DBCONTROL 
M$CLOCK 
MS$TRIN 
M$GDS 
MS$FDS 
M$GAUTO 
M$FAUTO 
M$PDS 
MS$STRMCTL 
M$GTRMCTL 
M$ PROMPT 
MS$EOM 
M$GLINEATTR 
M$STRMATTR 
M$GTRMATTR 
M$PLATEN 
M$STRMTAB 
MS$SINPUT 


Code 


0440 
0441 
0442 
0443 
0484 
0485 
04C7 
04C9 
O04CA 
04CD 
O04CE 
O4CF 
04D1 
04D2 
04D3 
04D5 
04D7 
0506 
0546 
0584 
0594 
0880 
0881 
0882 
08CO 
08C1 
08C2 
08C3 
08C4 
O08C6 
O8CC 
0902 
0903 
0904 
0905 
0907 
0980 
0981 
0982 
0983 
0985 
0986 
0987 
0988 
098A 
098B 


Vect# 


Sorted by M$name 


Service Name 


MS$AFD 
M$CHGUNIT 
M$CLOCK 
M$CLOSE 
M$CLRSTK 
MSCPEXIT 
M$CVM 
M$DBCONTROL 
M$DCLFLD 
M$DEVICE 
MSDRTN 
MS$EOM 
MS$ERASE 
MS$ERR 
M$ERRMSG 
MS$EVENT 
M$EXIT 
M$FAUTO 
M$FDS 
M$GAUTO 
M$GCHAN 
M$GDDL 
M$GDS 
M$GETDCB 
M$GLINEATTR 
M$GPROMPT 
M$GTRMATTR 
M$GTRMCTL 
MSINT 
M$INTCON 
M$INTREL 
M$INTRET 
M$LDTRC 
MS$MAKEUSR 
M$MDFFLD 
M$MERC 
M$MERCS 
MSOPEN 
M$PDS 
M$PLATEN 
M$PROMPT 
M$RCHAN 
M$READ 
M$RELDCB 
M$RETRY 
M$RETRYS 


Code 


04D1 
04D5 
08C6 
1541 
04CD 
1486 
ODO8& 
08c4 
OD8F 
OD4'7 
04D2 
0983 
0992 
0881 
2CD6 
O08CO 
0880 
0905 
0903 
0904 
0993 
0506 
0902 
OD45 
0985 
0995 
0987 
0981 
08C1 
0441 
0442 
0440 
1483 
04C7 
118E 
04C9 
O04CE 
3540 
o907 
0988 
0982 
0594 
1542 
0546 
04CA 
O4CF 


M$RLSFLD 
M$SLCFLD 
M$ERASE 
MS$GCHAN 
M$GPROMPT 
MS$WRSYSLOG 
M$WAIT 
MS$SPRIV 
MS$CVM 
M$GETDCB 
M$DEVICE 
M$DCLFLD 
M$WRTMLT 
M$MDFFLD 
M$LDTRC 
M$CPEXIT 
M$TIME 
M$CLOSE 
M$READ 
MSWRITE 
MSERRMSG 
MSOPEN 


Code is expressed in hexidecimal. 


M$RLSFLD 
M$RUE 
M$SCREECH 
M$SINPUT 
M$SLCFLD 
MS$SPRIV 
M$STRMATTR 
MS$STRMCTL 
M$STRMTAB 
MSSYS 
M$TIME 
M$TRAP 
M$TRMPRG 
M$TRIN 
MS$UNSHARE 
MS$WAIT 
M$WRITE 
M$WRSYSLOG 
MS$WRIMLT 
M$XBREAK 
M$XCON 
MSXXX 


Number of vectors is expressed in decimal. 


Monitor service codes 


ODBNOoHANADE 


.000 
.000 
. 000 
.000 
.000 
.000 
.000 
.000 
. 000 
.000 
.000 
.000 
.000 
. 000 
.000 
.000 
. 000 
.000 
.000 
.000 


M$INTRET 
M$INTCON 
M$INTREL 
MS$SYS 


M$EXIT 
M$ERR 
M$XXX 
M$LDTRC 
M$XBREAK 
M$SCREECH 
MS$CPEXIT 


MSEVENT 
MSINT 
M$XCON 
M$TRAP 
M$DBCONTROL 
MSWAIT 
M$CLOCK 


- no FPT specified 


0040 
0041 
0042 
0043 


0080 
0081 
0082 
0083 
0084 
0085 
0086 


O00CO 
00C1 
00C2 
00C3 
o00C4 
00C5 
00C6 


M$GDS 
MS$FDS 
M$GAUTO 
M$FAUTO 
M$GDDL 
M$PDS 
MS$CVM 


MS$OPEN 
M$CLOSE 
M$READ 
M$WRITE 
MS$WRTMLT 
M$GETDCB 
M$RELDCB 
M$DEVICE 


M$STRMCTL 
M$GTRMCTL 
M$PROMPT 


0102 
01035 
0104 
0105 
0106 
0107 
0108 


0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 


0180 
0181 
0182 


MS$MAKEUSR 
MSSENV 
M$MERC 
M$RETRY 
M$RENV 
M$TRIN 
M$CLRSTK 
M$MERCS 
M$RETRYS 
M$SPRIV 
MS$AFD 
MS$DRTN 
M$UNSHARE 
M$TIME 
M$CHGUNIT 
M$ERRMSG 
M$RUE 


ooc7 
00c8 
00C9 
OOCA 
OOCB 
O0O0CG 
O00CD 
OOCE 
OOCF 
OODO 
O0O0D1 
OOD2 
O0OD3 
OOD4 
OODS 
OOD6 
OOD? 


M$EOM 
M$TRMPRG 
M$GLINEATTR 
M$STRMATTR 
M$GTRMATTR 
M$PLATEN 
M$STRMTAB 
MS$SINPUT 
M$MDFFLD 
M$DCLFLD 
M$RLSFLD 
M$SLCFLD 
MSERASE 
M$GCHAN 
M$RCHAN 
M$GPROMPT 


M$WRSYSLOG 


0185 
0184 
0185 
0186 
0187 
0188 
018A 
018B 
018E 
O18F 
0190 
0191 
0192 
0193 
0194 
0195 


01C0 
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Active Process ------ > 
MMU Image source ----> 
# UASDT MASDT VADDR 


USER /HANDLER 
UHJIT. ASDT_USR 


MON FOR USER 
UHJIT . ASDT_MCL 


MHJIT 
MON_ENTRY_DATA 
MON_ENTRY 
USER_DS1 
USER_DS2 

CP_DS 

* 


* 
* 


USER_IS1 
USER_IS2 
USER_IS3 
USER_IS4 
USER_IS5 
USER_IS6 (LIB) 
USER_IS7 (LIB) 
DB_PROC 
CP_PROC 
UAUTO_DS 
USER_DS3 
USER_DS4 
HAND_Q 


* 
* 


MHJIT 
MON_ENTRY 


MON_IS1 
MON_IS2 
MON_ISS 
MON_IS4 
MON_IS5 
BPAR1 
BPAR2 
DB_PROC 
WINDOW1 
* 


* 


BOBCAT 
HAND_Q 


* 


BIGFOOT 


MONITOR 
MHJIT. ASDT_MON 


MHJIT 
MON_ENTRY_DATA 
MON_ENTRY 


MON_IS1 
MON_IS2 
MON_ISS 
MON_IS4 
MON_ISS 
x 


* 


DB_PROC 
WINDOW1 
x 


* 


BOBCAT 
* 


* 


BIGFOOT 
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GS$UHJIT 
0123456701234567 
J--------------- J-~—------------ I 
.5000 !ASDT_USER IW 
Diets Se Sas S Ce eso I 
| | 
J--------------- Te eae ee T 
.503E !ASDT_MCL 
useage pee P22 2 Ses iE 
! t 
[--------------- dee Se BE 
.5072 !ISA_USR ! 
TS Se Shae Ts Sele Ss I 
| .507E contains .DMN.ID ! 
J--------------- Peek I 
.5OB6 !TSA_USR ! 
I------- 5 eee ee I 
7! | 
J--~----~------- J--------------- I 
J--------------- Pas oo ees I 
CNCT_LVLS .517F lela cele eieicialaicieleiaieia! 
I See Se ae a Se a Se a Sa a 
\elel@l@1e:6lei@lai@ial@i@laial6! 
ee ee eee i 
se 
J~----~--------- J--~------------ I 
gle ele elelaietalaieiels| eer 
Taser ee ci 
.5183 !SHRD_SEG r es aed Rear t 
ee ee Z 
ARRAY: ’ 20/0 BNIRIES TOTAL. 
J----—--~=-~+---J-—----~---___-- I 
SBLOS° UMMPLE GS Ps sac o: ice xo! Slee eeee. ee 
Pao Se 8 See ee Pee ee I 
ARRAY:’ 20’O ENTRIES TOTAL. 
J--------------- J--------------- i 


The User Housekeeping Job Information Table (UHJIT) contains the 
data required by the hardware and the LCP-6 Schedular for running 
a user. 


The G$UHJIT macro, which is contained in the G_HJIT_M include 
file, may be used to generate a structure defining the UHJIT. 
Because the G$UHJIT macro requires some of the macros contained 
in the GH_LCP6_M include file, GH_LCP6_M (or LCP_6) must also be 
specified as an include file in a compile unit that requires the 
G$UHJIT structure. 


A user may reference the UHJIT through the pointer G$UHJIT$. 
This pointer is defined in the G_UPTRS_D object unit file. 


The fields within the UHJIT of particular interest to the system 
programmer are: 


ASDT_MCL - The MCL Address Space Descriptor Table contains the 
segment descriptors that are loaded into the Memory 
Management Unit while processing a user’s monitor service 
request. 


ASDT_USR - The User Address Space Descriptor Table contains the 
segment descriptors that are loaded into the Memory 
Management Unit for user program execution. 


ISA_USR - The User Interrupt Save Area is accessed by the 
hardware on the occurrence of the user’s interrupt level. 
Refer to the description of G$ISA. 


TSA_USR - The User Trap Save Area is used by the hardware and the 
LCP-6 system to store the environment at the time of a user 
trap. Refer to the description of G$TSA. 


UHJIT.DMN.ID - UBIN contains the DoMaiN IDentification which 
indicates which process is running; Monitor, Debugger, User, 
‘user Interrupt Level, or monitor service. The value will be 
one of the following EQUated values from the G_LCP6_E (or 
LCP_6) include file: 


%G_DMN_MON_SVC 0O %G_DMN_MON 4 
%G_DMN_DB_SVC 1 %G_DMN_DB 5 
%G_DMN_INT_SVC 2 %G_DMN_INT 6 
%G_DMN_USR_SVC 3 %G_DMN_USR 7 
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G$LOW_MEM 
0123456701234567 
I----- J--------~------- I 
O!Contains the TSA overflow ! 
I logic used to generate the I 
! GHT-1396-3 Screech Dumps ! 
1 ! 
B! ! 
I--------------- Ba Nah pele ar I 
C!NATSAP2$ Handler Int Level ! 
Leh ee tos I------- I 
D! ! 
I--------------- I------~~-----+-~+ I 
E!NATSAP1$ User Level ! 
Tea SS Sos aS I---+----- I 
F! I 
I--------~--~----- I--------------- I 
10!NATSAPO$ Monitor - Idle ! 
Le SoS°S 5505 5 PSS AS ys = I 
11! | 
I--------------- I--------------- I 
12!* ! 
I--------------~ I--------------- I 
13!* ! 
I--------------- I--------------- I 
14!RTC_INIT ! 
I--------------- I---------~----- I 
15!RTC_CURR ! 
I-~~+~---------- I--------------- I 
16!RTC_LVL ! 
I--------------- I--------------- I 
17 ! WDT_CURR ! 
I------+-------- PasS-5 5 -SS5S5S5 I 
18!* ! 
I----------~----- I--------------- I 
ARRAY: ’ 7’O ENTRIES TOTAL. 
I--~~----------- I--------------- T 
1F!MEM_ERR_CNT ! 
I----~~~~-~~----- I----—------~--- I 
LVL_ACT 20! Levels 0 - 15 ! 
I-----------~-~- I------—-------- I 
LVL_ACT al! Levels 16 - 31 ! 
T----------=+~-- DSSS sssS$$5555525 I 
LVL_ACT 22! Levels 32 - 47 ! 
I------------~~- I-------------=-- I 
LVL_ACT 25! Levels 48 - 63 ! 
I--~--------~-~~=- I-------------~- I 


The G$LOW_MEM macro may be used to generate a structure of the 


hardware dedicated memory locations in low core. No initial 
values may be specified. 


This structure contains the following fields: 


IV = The interrupt vector. Refer to GSINTERRUPT_VECTOR for the 
fields within the interrupt vector. 


LVL_ACT = ARRAY(0:63)-BIT(1) set when the corresponding interrupt 
level is active. 


MEM_ERR_CNT = VALUE-SBIN WORD contains the hardware count of 
memory errors. 


NATSAPn$ = PTR (where n = O-7) contains the address of a pool of 
available Trap Save Areas. When a trap occurs, the firmware 
uses the NATSAP_SEL field in ISM2 to access one of the pools 
O-7. The linkage between TSAs in a pool is initialized by 
the LCP-6 software and maintained by the firmware. 


NATSAPO$ will be set to the address of MHJIT.TSA_MON and 
NATSAP1$ will be set to the address of UHJIT.TSA_USR. 


NATSAP4$ through NAPTSAP7$ are Reserved for Future Use. 


PSF_ENT$ = PTR is an entry to the Power Failsafe Routine. This 
is the address to be entered on power-up. 


RTC_CURR = VALUE-UBIN WORD contains the Real time clock current 
value. 


RTC_INIT = VALUE-UBIN WORD contains the Real time clock initial 
value. 


RTC_LVL = VALUE-UBIN WORD contains the Real time clock interrupt 
level. 


TV = The trap vector. Refer to G$TRAP_VECTOR for the fields 
within the trap vector. 


WDT_CURR = VALUE-UBIN WORD contains the Watchdog Timer current 
value. 
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G$STATUS_REG 
0123456701234567 


I------~~------- J--------~---~-- I 
QLT CuO art oN ee ee cee tg Oe 
J---~--------- J--------------- I 
RING O!.!1@ 1% !ID ! LEVEL | 
J--------------- I--------------- I 


The G$STATUS_REG macro may be used to generate a structure that 
contains the Status Register. 


The fields of the Status Register are: 


ID = VALUE-BIT(2) is the processor identification which is 
hard-wired and cannot be changed under program control. 
These 2 bits are used as the least significant bits of the 
10-bit channel number for the processor itself, where the 8 
high order bits are always ZERO. Ther default is ‘0O0O’B. 


LEVEL = VALUE-UBIN(6) contains the interrupt priority level on 
which the processor is currently executing. Level 0 is the 
highest priority level and 63 is the lowest. The default is 
O. ; 


LCP-6 Interrupt Level Assignments 


Dec Hex Usage 

00 00 Power Fail Safe 

O01 O01 Watch Dog Timer 

02 02 Trap Save Overflow 

03 03 Bigfoot - Used during the boot process 
04 04 Monitor Inhibit Level 

05 O05 Monitor Inhibit Level2 


06 06 XDELTA 

OA OA XDELTA 

12 OC Available for Handlers 
59 3B Available for Handlers 
60 3sC Common Interrupt Cleanup 
61 3D Real Time Clock 


62 SE Scheduler - Idle Level 
63 SF User Execution 


QLT = VALUE-BIT(1) indicates whether a unit in the system has 
successfully completed its Quality Logic Test or not. 


QLT successfully completed. 
QLT either still running or failed 


0 
1 
Default = ‘O’B. 


RING = VALUE-BIT(2) contains the currently active Ring value. 
Note that ring values are always encoded as ones complement 
whenever they appear. Thus this field will contain one of 
the following: 


11 = Ring O - the most privileged; used by the Monitor 
10 = Ring 1 - also privileged and used by the Monitor 
Ol = Ring 2 - Command Processor or Debugger 

00 = Ring 3 - User 


This field may be initialized by specifying {G_RINGO# | 
G_R_MON# | G_R_CPDB# ! G_R_USR#}. The default is G_R_USR#. 


17:07 AUG 29 ‘85 CXX 


DRIBBLE ON @ 12:19 08/22/85 
!ANLZ. 5060 
ANLZ CO1JTA 
:DFCOO5060 for GHB-O00001-3 at 19:19 AUG 20 ‘85 on LADC L66A 
LA is to blame 


Nodes: L6I L66A 
L6I (node 1) Selected 
L6I -REC 


Screech Code: 


GHB-MOO001-6 Invalid domain number in UHJIT. 


Current User: .0O TSA$: .6087 

TSA @.6087: 

TRAP: O TSAL$: .50B6 I: .000C INST: .OOOA Z: .O0OCO 

A$: .20674 P: .20707 BS: .2077B RS: .1 S: .6032 


Trap IC: GHB$TRAP1+.8F 
ISA: 
P: .9026 S: .6004 CHN: .FFFF ISM1: .FFFF ISM2: .A103 


Interrupted address: GHT$TRAP+.25 


1 2 3 4 5 6 7 
B Registers: 503E 50B6 5081 2077A S000 20707 44F8 
R Registers: 10 F A103 2 32 2 996 
M Registers: FFOO FFOO FFOO FFOO FFOO FFOO FFOA 
ASV$: .503E TSAP$: .O NATSAP: 2 I: .OOO0C T$: .45FA 


CI: .0000 RDBR$: .O 


TSA @.50B6: 
TRAP: 15 TSAL$: .O I: .OF18 INST: .D800 2Z: .0083 
A$: .200 P: .20996 B3: .AQ052 R3: .15 S: .4032 


Trap IC: GHM$MCLS+.116 
ISA: 
P: .9026 S: .0000 CHN: .FFFF ISM1: .FFFF ISM2: .A103 


Interrupted address: GHT$TRAP+.25 


B Registers: 
R Registers: 
M Registers: 


ASVS: 


CI: .0000 RDBR$: 


=.1 


Frame 
Frame 
Frame 
Frame 
Frame 
Frame 
Frame 
Frame 
Frame 


L6I 
Usr# 


L6I 


. 5000 


25 


DHOQOOQOOO®B 


AOO5: 
1 
FFO 


C 
fe) 


8&8 A103 2 1 3 


O FFOO FFOO FFOO FFOO  FFOO 


TSAP$ : 


-INTCON 


-PL 


MW=. 


.44D7 
.44F0 
.44F7 
4514 
.451B 
-452C 
-4561 
. 45EE 
.45F5 


- 4000 
SFO 


called 
called 
called 
called 
called 
called 
called 
called 
called 


-SPY .2 
Identification 
EH .2 :SYS,COUPLER 


.0 


TSAP$ P$ 


F .2 


from 
from 
from 
from 
from 
from 
from 
from 
from 


-DUA .3020,4 


fe) 


1 


2 


.O NATSAP: 2 I: .0018 T$: 


AQO068 5081 20C8D DO018 2087B A0058 


1D 
FFOA 


IENTRY DEV § HHJIT USR LVL FLAGS 


00000000 001A 6000 .0000 .04 . 
000246E8 0000 6004 .8226 .04 . 
000247F2 0000 6004 .8219 .04 . 
00024900 0000 6004 .821A .04 . 
00000000 OO1E 6000 .0000 .06 . 
o00020C66 0000 6004 .820F .06 . 
00000000 0020 6000 .0000 .03 . 
00020A46 0000 6004 .8210 .03 . 
000211AC 0000 6004 .8205 .05 . 
00000000 0024 6000 .0000 .05 . 
0002190C 0000 6004 .821B .05 . 
0002190C 0000 6004 .820E .05 . 
00000000 0032 6000 .0000 .02 . 
OOOZ0A1E 0000 6004 .8204 .02 . 


.91D8 (GHT$TRAP+.1D7) 
.90EB (GHT$TRAP+.EA) 
.91D8 (GHT$TRAP+.1D7) 
.9121 (GHT$TRAP+.120) 
.2794B (GUS$CLOCK+ .35B) 
.9A3B (GUD$MCL_HAND+ . 30D) 
.922D (GHT$TRAP+.22C) 
.9732 (GUD$MCL_HAND+.4) 
.2123C (GHS$ADDUSR+.17A) 


Sysid CPU MSLM 
2 15:17 


3 4 5 6 7 


003020 0800 0000 0000 2001 = Lee eee 


L6I 


-DU .507E,1 F .2 


COUPLER. : SYS 


. AOOFA 


0 1 2 3 4 5 6 7 


005078 0003 
L6I -DU .507E,1 ASDT .20400 
O 1 2 3 4 5 6 7 
005078 0002 
L6I -SYM COUPLER. :SYS 
L6I -TSA .50B6 F .2 
TRAP: 63 TSAL$: .0 I: .3FOC INST: .0001 2Z: .8080 
A$: .61E45 P: .61E46 B3: .61A00 RS: .CC5 S: .403F 


Trap IC: X6A_MAUTO+.1D48 


ISA: 
P: .9148 S: .4000 CHN: .0000 ISM1: .FFFF ISM2: .9103 

1 2 3 4 5 6 7 
B Registers: 5000 9F21 5081 62300 9ccs 61E7C A0025 
R Registers: Ba oF 0 FFFF oF 8 9103 
M Registers: FFOO FFOO FFOO FFOO FFOO FFOO FFOA 
ASV$: .5000 TSAP$: .0 NATSAP: 1 I: .O00C T$: .AOSFA 
CI: .0004 RDBR$: .0 
L6I -TSA .50B6 ASDT .20400 
TRAP: 15 TSAL$: .O I: .OF18 INST: .D800 2Z: .0083 
A$: .200 P: .20996 B3: .A0052 R3: .15 S: .4032 


Trap IC: KdJF$FIX+.170 


ISA: 
P: .9026 S: .0000 CHN: .FFFF ISM1: .FFFF ISM2: .A103 
1 2 3 4 5 6 7 
B Registers: AOO5C AO0068 5081 20C8D DO0018 %2087B A0058 
R Registers: 10 8 A103 2 1 3 1D 
M Registers: FFOO FFOO FFOO FFOO FFOO FFOO FFOA 
ASV$: .5000 TSAP$: .O NATSAP: 2 I: .0018 T$: .AOQFA 


CI: .0000 RDBR$: .0O 


L6I ~PL .AO0000 F .2 


CW=.9A3 MW=.9ED 


Frame @.A0057 called from 
Frame @.A0041 called from 
Frame @.A0024 called from 
Frame @.AOOOF called from 


.20C71 (KIF$INTHAND+ . 253) 
.20A1E (KIF$INTHAND+ .0) 
.20E51 (G_UPTRS_D+.6D) 
.2043A (KIF$FEI+.0) 


